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Sundog Systems proudly presents the first 51 2K arcade game 
avaiiaoie lor your CoCo ill! if you don't have 512K. you wilt 
want to get it just Tor [(lis game 1 The evil Sinistaars have- In- 
vaded the galaxy and it falls to you to destroy them. These 
fiends will attempt fo hold you with a constant barrage of 
drone ships while they muster their slrengtlr. and eventually 
find and obliterate you. Vour mission is to mine the myriad 
asteroids In search ot the precious ore which can be refined 
into sinlbombs, your only weapon against the Sinistaars. 
Many surprises await as you advance through the increasing- 



packed with spectacular graphics, sc_ ._ 
Dsiens a' stages will keep you 
coming back for more, Req. 
51 2K CoCo ill and disk drive. , 



Riladin's Isgacy 
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Something is killing oft the members of the legendary order at 
Kyum-Gai in desperation, its leaders have called upon |he 
powers of the life stone to resurrect you, their greatest here: 
the NINJA GAt-DAN. Now, you musi find and destroy the evil 
forces behind this dark plot. Use a multitude ol martial arts 
moves to defeat your Bnamies. obtain treasure and weapons, 
and evade obstacles, Kyum-Gai: to be fitttja uses the most 
detailed 320*200 resolution. 16 color graphics, the highest 
quality digital sound effects, and spectacular animation to 
bring you the greatest martial arts game your CoCo ill has 
ever seen. Created by the author at warrior King, this incredi- 
ble arcade game is a definite must tor your CoCo III software 
collection. Join the ranks ottha Kyum-Gai and find out what It 
means to be Ninja!' fieq. 128K 
CoCo 111, disk drive, and 
joystick |2-button joystick 
supported) 



SotmdTtax is an unprecedented sound sequencing system lor 
the CoCo lit, It requires to extra hardware (i.e. midi 
keyboards, cables, etc.). Ail of it is contained in your CoCo. 
This amazing program will read in a digitized sound and play 
back ail of the notes in the octave in which it was recorded. 
And it's POLVPHONICI You tan sequence up to lour voices al 
one time, and not only the same sound! With as many voices 
as can be held in your memory, depending on the song, you 
can create a score of up to THREE DAYS in length using 
drums, horns, strings, even your own voice! And you can 
play them all together! Using the built-in windowing point- 
and-c!ick editor, you can cut. paste, even synchronize the 
score to }usl the way you like it. Use the preempted sounds 
f/om the disk Included, or make your own by Importing them 
from some of the more popular digitizers available. Also, 
CALL for the availability of extra sound sample disks! Get it 
today; you won't believe your 
ears' Bag. 1£8K CoCo IK. 
mouse/joystick, and disk 
drive. 
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Years after the mysterious hero called the Paladin ffisap 
peered, loath some creatures, spawned from the bowels of the 
ptartat. hive overrun the land nl Tarlnth and captured the 
king. The situation is grave. tot without the king's KHHienci 
the three nations wilt not unite against the growing evil oily 
one pure of heart can master I he five magics and thereby 
fulfill the Paladin's legacy and save IN realm Adventure mis 
this vast land of fantasy, interact with its inhabitants, explore 
the ruinous mines, and de baffle with supernatural forces Ex- 
perieticfttne magic of the quest in this fasl-paeed roie-piaving 
adventure, all In the familiar quick scrolling, bird's eye play 
formal. You will love the feeling of playing an action game 
with great graphics, animation, and sound effects, but all the 
wlille solving one of the most involved adventures yel Ta<min 
awaits its savior' Available for 
all CoCo models 1 fteq. 64K Ht'-A 



Hinl Sheet: S3. 95 



Hall of the King I, I) or ill 
S29.95eac.il 

Hall ol the Xing Trilogy 
$74.95 
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rlor King 

K CoCo III. S29.9E 



Champion 
S19.95 




Dragon Blade 
$19.95 



u Dude 
L.0C0 $24.9 



WfMte Fire ol Eternity 

$19 95. 

*Ail require 64K CoCo. 



Visa, Mastercard. Check, Money Order, and COD 
(USA only, 'please) accepted All foreign orders 
must he sent in US currency Money Orders Include 
$2.50 lor shipping fn USA and Canada. $5.00 
Foreign. $3,00 extra tor COO orders. PA residents 
add 6% sales tax. Dealer Inquiries welcome 
Authors; we're looking lor rmw software! 
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From Computer Plus to YOU . . . 

PLUS PLUS 




L7 



Tandy U0OFD$1219 

Tandy 102 32K $439 

Tandy WP-2 $279 



Color Computer 3 
W/128K Ext. Basic $159 




Tandy 1000 SL $689 
Tandy 1000 TL/2 $959 
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Color Computer Disk Drive 
Drive $239 Drive 1 $149 




TandyFax $929 



BIG SAVINGS ON A FULL 

COMPUTERS 

Tgndy «00 HX 1 Drive 2S6K 349.00" 

Tandy 1000TX1 Drive 640K 719.00" 

Tandy 3000 NL 1 Drive 51 2K 1279.00 

Tandy 4000 1 Drive 1 Meg. Ram 1969.00 

Tandy 5000 MC 2 Meg. Ram 3799.00 
PRINTERS 

Radio Shack DMP-107 120 CPS 219.00 

Radio Shack DMP-1 32 1 20 CPS 1 99.00* 

Radio Shack DMP-440 300 CPS 449.00* 
RadioShack DWP-230 Daisy Wheel 269,00* 

Tandy LP-1 000 Laser Printer 1899,00 

Star MlcronicsNSC-1000 144 CPS 199.00 
Star Micronics NX-1000 Rainbow 269 00 

Panasonic KXP 1180 192 CPS 219.00* 

Panasonic KXP 1 1 91 240 CPS 259.00* 

Panasonic KXP 1 1 24 192 CPS 369.00* 

Okidata320 300 CPS 369.00 

Okidata390270CPS24WlreHd 515-00 

NEC Pinwrlter P-2200 170 CPS 399 00 
MODEMS 

Radio Shack DCM-6 52.00 

Radio Shack DCM-7 85.00 

Practical Peripheral 2400 Baud 229,00 



Practical Peripheral 1200 Baud 149.00 Flight 16 Flight Simul. 



COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COLOR COMPUTER MI5C. 

Radio Shack Drive Controller 99.00 

Extended Basic Rom Kit (26 pin) 14.95 
64K Ram Upgrade Kit (2 or B chip) 39.00 
Radio Shack Deluxe Keyboard Kit 24.95 
HI-RES Joystick Interface 8.95 

Color Computer Deluxe Mouse 44.00 
Mufti Pak Pal Chip (Or COCO 3 14.95 
Multi-Pak Interface 89.95 

Serial to Parallel Converter 59.95 

Radio Shack Deluxe Joystick 26.95 

Magnavox 8515 RGB Monitor 299.00 
Mognavox Green or Amber Monitor99.00 
Radio Shack CM-8 RGB Monitor 249.00 
Radio Shack VM-4 Green Monitor 99.00 
PBJ OK COCO 3 Upgrade Board CALL 
PBJ 512K COCO 3 Upgrade CALL 

Tandy OK COCO 3 Upgrade Board 24.95 
Tandy 51 2K COCO 3 Upgrade 149.00 
COLOR COMPUTER SOFTWARE 

TAPE DISK 
The Wild West (CoCo3) 26.95 

Worlds Of Flight 34.9534.95 

Mustang P-51 Flight Slmul. 34.95 34.95 



COCO Utl 1 11 by Mark Data 39 95 

COCO Max III by Colorware 79.95 

Max 1 by Colorware 79.95 

AutaTerm by PXE Computing 29.9539.95 
TW-BO by Spectrum [CoCo3) 39.95 

Telewriter 64 49.9559.95 

Telewriter 128 79.95 

Elite Word 80 79.95 

Elite Calc 3.0 69.95 

CoCo 3 512K Super Ram Disk 19.95 

Home Publisher by Tandy (CoCo3) 35.95 
Sub Battle SI m. by Epyx (CoCo3) 26.95 
Thexder by Slorra (CoCo3) 22 45 

Kings Quest III by Sierra (CoCo3) 31 .45 
Flight Slm.il by SubLogic (CoCo3) 31.45 
OS9 Level II by Tandy 71.95 

OS-9 Development System 89.95 

Multi-View by Tandy 44,95 

VIP Writer (disk only) 69.95 

VIP Integrated Library (disk) 149,95 

Prices are subject to change without notice. 
Please ca II tor shl pp I ng charges. Prices in our re- 
tail store may be higher. Send tor complete 
catalog 



34.95 34,95 "Sale prices through 9/30/89 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 



com 




P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (508) 486-31 93 



TRS-80 Is o registered trademark of Tandy Corp. 
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Attention, Please 

Editor: 

I am quite upset at the lack of attention 
to all of us gamers out here. For the past 
year there has been a great decrease in the 
amount of games published in each issue 
— it's down to about one a month, The 
straw that broke the camel's back, is the fact 
that you have not published a Game issue 
this year. I understand that we need more 
serious applications for the CoCo, and I 
need and use them also. But that's not the 
only reason I bought my CoCo. I bought it 
for recreational purposes as well. I'm sure 
other users agree with me. I recognize the 
fact that we need an OS-9 issue, but getting 
rid of the Game issue was a drastic measure 
that should not have been taken, I enjoy 
your magazine for all of the serious uses it 
presents, but we all need our share of fun 
too. 

Peter Bou 
Jim Thorpe, Pennsylvania 

HINTS AND TIPS 

Editor: 

I was having difficulty saving my Sub 
Battle Simulator game. When I wrote to 
EPYX, I was informed the manual neglects 
mentioning that in order to save a game, 
you must first format a disk under the OS- 
9 operating system, using Level 1 or II. 

Also, there is a misprint in September's 
issue of 'The Scoreboard." In Pitfall 2 you 
can score a maximum of 199,000 points, 
which I've scored. I was disappointed that 
my score wasn't shown. You have mixed 
up Pitfall 2 and Super Pitfall. Pitfall 2 is 
made by Activision and Super Pitfall by 
Radio Shack. 

Mike Alt 
San Juan, California 

Updnlist Update 

Editor: 

I am writing to inform you of a correc- 
tion to my Updnlist program, published in 
the July issue of the rainbow (Page 106}. 

In lines 70 and 80 the following correc- 
tions need to be made: 

Change sh25 to &H74. 

Change sh26 to &H75. 



The original program works fine on a 
disk system but gives an FC Error on a tape 
system. 

$0074 and $0075 hold the address of the 
end of memory, and this is where the ML 
code should be safely stored away. On a 
disk system $0025 and $0026 also contain 
this address, but the tape system has a zero 
there on startup. This gives the error in the 
program. 

The corrected lines are shown below: 

70 P=256*PEEK (&H74) +PEEK(fiH7 5> :P 

=P-SH99:CLEAR2QQ,F 

80 P-256*PEEK(£H74)+FEEK[£H75} :P 

=P-SH99:FORX= TO SH99;KEAD A? : 

A.=VAL("S l H"+AS) ;POKE P+X,A:NEXT 

Grahame Pollock 

Minto, New South Wales 

Australia 

Manual Addendum 

Editor: 

The following is not in the users manual 
of Star NX- 10 or Star NX- 1000 Printers 
published by Star Micronics Co., Ltd. 

In order to have a hard copy of the DIP 
switches setting, type: 

PRIM! #-2, CHR?(27); CHRS [0] 

and you will have something of this kind: 

dip-sw 

12345G791234 



ON 

OFF 



***** 



* * * * 



Yvon Levaque 
Aylmer, Quebec 



INFORMATION PLEASE 

Editor: 

I just bought a U.S. Robotics Autolink 
1200 for $5. The problem is, it doesn't have 
a manual or adapter. I would like to know 
what voltage and polarity it takes, as well as 
what the DIP switch settings mean (they 
are abbreviated}, and what they should be 
set at for my 128K CoCo 3 system. 

Also, there are four internal numbered 
DIPs; what function do they serve? Besides 
the DIPs, there are two buttons and seven 
lights on the front that I am unsure about 
using. The two buttons are labeled AL and 
OR, and the seven indicator lights I need 



help with are RI, OH, TR, RD, AN and SD. 
There is also an On button and On and DC 
lights, which are pretty obvious. 

Any help, including info on how I might 
obtain a manual, would be very much 
appreciated. 

Jeff Bye is 

124 Elizabeth St. 

East Peoria JL 6161 1 

Where Do We Go From Here? 

Editor: 

The Cornwall Color Computer Club 
would like your advice and help on starting 
aBBS. Right now we have a 128KCoCo3, 
a triple Y cable, a DCM-6 modem (modi- 
fied to auto-answer}, a disk controller with 
one single-sided floppy drive, and a Deluxe 
RS-232 Pak. The board isn't up yet for lack 
of information, a hard drive (40- Meg) and 
an adequate BBS program. 

We would like to start a BBS to increase 
interest in the club and telecommunica- 
tions. We are just beginners in this, and we 
need lots of help. What 40-Meg hard drive 
kit or package and what BBS program 
would you recommend? Any other help or 
advice would be greatly appreciated. 

Thanks in advance for all help. THE 
rainbow and its readers are the best source 
of information. 

Robert L. LeBrun 

451 Leithch Dr. 

Cornwall, ON K6H 5P5 

Canada 

Screen Dump for the Oki 

Editor: 

I have a Color Computer 3 and an Okidata 
Microline 182 printer, and I need a screen 
dump for the thing. I do not program, but I 
do write a few short things with the help of 
THE RAINBOW. It really does help a lot. 
Keep up the good work. 

Larry M. Gunion 

1034 M 7th St. 

Lafayette, IN 47904 

Any Booming Ideas? 

Editor: 

I own a TRS-80 Color Computer 2, and 
I've written a couple of programs that need 
good explosion effects. The only ways I 
know of arc just drawing circles or flashing 
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FALL BLOWOUT 

512K Upgrade: Only $109, See Page 17 Drive : Only $199. See Page 15. 

Magnavox RGB Monitor: Only $259. 40 Meg Hard Drive System: Only $569. See Page 15 

(For Other Blowout Sale Prices, seepages 7-17) 
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by Walter Bayer 

The ultimate desktop publishing program for the CoCo 3. Allows COMPLETE CONTROL of all the elements in the 
page! Features pull -down menus, icons & dialog boxes, drawing tools (create boxes, polygons, rays, circles, elipses, brush 
shapes), cut, copy, stamp, paste, zoom, flip horizontal/vertical, enlarge/reduce, rotate at 45 & 90 degrees, stretch, undo, im- 
port any ASCII text {even CoCo Max 1/2 Creations & Fonts!), create 2/3 columns, change fonts/invert text & page preview. 
Includes 14 fonts & 60 pieces of clip art No other desktop program comes even close. Req. CoCo 3, RGB/ Monochrome 
Monitor, Min 1 drive, Tandy Hi-Res Interface, Joystick/mouse & DMP 105/106 or Epson/Gemini & Compatible Printer. Only 
$49.95- w / Hires Inteface Only $59.95. w/ Hires Interface & Mouse: $79.95 



^v Color Schematic Designer Ver 2,0 




The best Circuit Designer for the CoCo 3. Pull Down Menus, hi-resolution symbol sets, Keyboard / Mouse / Joystick (with 
proportional cursor speed system), lightningfast multiple UNDOs, Symbol Add / Modify /Rotate/Line/Box Draw, Hi-res Fonts, 
workspace of 640 x 1000 pixels, 3 layers, font styles (fancy, italic, block, computer, etc). Supports DMP/ EPSON / GEMINI 
& compatible printers. Supports near laser quality printouts on almost all EPSON Compatibles! Only $39.95. CSD 1.1 / 
1 .2 owners can upgrade to version 2.0 by sending $10 with proof of purchase. (See Review in September 1989 Rainbow) 
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Musica II: Best Music Composition program 
for the CoCo 1 ,2 & 3. Disk Only $29.95 
Lyra: MIDI Based Music Composition 
program for the CoCo 1,2 & 3. Disk Only 
$49.95 

The Lyra Companion (Book): $9.95 
CoCo Midi 3 Hardware: Sophisticated 
MIDI sequencer/ recorder. Only $99.95 
CoCo Midi 3 Software: $59.95 



/"Max 10: 339.95 A/* 

Spelling Checker for Max 10:$29.95 
Max 10 Fonts (36 fonts): $29.95 
CoCo Max III: $49.95 
CoCo Max III Fonts (95 fonts): $49.95 
Max Edit {Font Editor): $19.95 
NX10Q0 Rainbow Driver: $19.95 
CGP 220 Driver: $19.95 a 
CoCo Max II: $69.95 &, 
CoCo Max I (Tape): $59.95~~^ 
MAXPATCH:Run CoCo Max Son CoCo 
$19.95 



VIP CALC III 

Best Spreadsheet for CoCo 3. Only 
$69.95 

VIP DATABASE III 

The Best Database for the CoCo 3. 
Only $69.95 



File System Repack 

A must utility for every OS9 owner. 
Unfragmentsyour hard/floppy disk to 
speed up disk operation & reduce 
wear on drive heads. Only $29.95 



CEBBS 



By Kevin Berner 

Best BBS for CoCo 3. Features Xmodem 
Up/Downloading, unlimited menus, login, 
message base, built-in clock/calendar, ex- 
ecution of external programs. Sysop has 
full control of user's access to menus, time 
on system & remote system access. Full 
Error Trapping. Even HYPERIO Com- 
patible. Req. $59.95. Intro. Special. Only 
$49.95. Min Req. CoCo 3, 1 Drive, & RS232 
Pack. 
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DOS 

ADOS 3: Advanced 
Operating System for the 
CoCo 3. Epromable. 
Only $34.95 ADOS 
(CoCo 1,2): $27.95(Ex- 
tendecf ADOS Might Be Avail by 
the time you read this!) 

RGB DOS: Supports 
double sided drives, up 
to 2 hard drives & more. 
Epromable. Only $29.95 



CoCo Util II 

Transfer Programs between CoCo & IBM. Will 
Transfer Basic Programs &. ASCII Files. Req 
DOS 3.2 or lower. Req. IBM Compatible with 2 

drives. Only $39.95 "^jfEf^- 

Xenocopy 0ooj < 
An amazingly versatile program that allows 
you to format/ duplicate / read/write disks be- 
tween 300 different computers. For ex. you 
could transfer files between CoCo, IBM, NEC, 
Model 3, etc. Requires an IBM Compatible 
with 2 drives. Only $79.95 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618. 
To OrderRefer to Page 1 7 of our 6-page ad series (Pgs 7-1 7) 
Credit Card Toll Free Orderline 1-800-654-5244 (9AM - spm 7 days/week) 

Tech. Info (Between 4 8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 




colors. Could you give me some tips and 
some possible sound effects for a good 
explosion? 

Michael Bales 

584 1 05th Ave, N. 

Naples, FL 33963 

KUDOS 

Editor: 

1 would like to tell you of a problem I had 
recently and how two of your advertisers 
bent over backward to solve it. I had or- 
dered a C-DOS EPROM and a real-time 
clock and printer adapter from Mierocom 
Software of Rochester, New York. Unfor- 
tunately, [ received the wrong version (4.0). 
and it would not work. A quick call to 
C.R.C. Products in Quebec confirmed the 
problem, I needed Version 1.2. Mierocom 
then shipped me Version 1.2M. which didn't 
work either. One more set of calls did the 
trick; this time all was right, and the EPROM 
and adapter worked as advertised. 

In both cases the people in technical 
services at both Mierocom and CRC were 
pleasant, helpful and knowledgeable. Doing 
business with these folks is a pleasure. 

F, Armburst 
Caribou. Maine 

The Illuminating Scoop 

Editor: 

I bought my first Color Computer in 
1981 (one of the original gray ones) and 
about a year ago updated to a new CoCo 3. 
I have used the computer for most all appli- 
cations imaginable and have written sev- 
eral dozen BASIC programs. 

I have subscribed to the rainbow off 
and on since 1981 and have read many 
articles about OS-9. Most of these articles 
have left me feeling puzzled and confused 
about what OS-9 could really do. After 
reading "The Big Scoop on OS-9" by Jef- 
frey S. Parker (August '89 issue. Page 66), 
I have finally decided that OS-9 is a must 
for me. Thanks for a fine, informative and 
well-written article. 

Don A. Barker 
Manhattan. Kansas 

Tips From the Top 

Editor: 

1 would like to inform you and the 
readers of the rainbow of the wonderful 
assistance I received from Frank Hogg of 
Frank Hogg Laboratory, inc. 

I recently purchased two programs put 
out by this company, Dynastar and Dyna- 
Spell. Not having a total working knowl- 



edge of OS-9 Level II, I was unable to 
install on my Dynastar working disk the 
proper files that would enable me to use the 
program. After two days of trying every- 
thing I could think of myself, T finally 
resorted to calling the number listed in the 
RAINBOW for Frank Hogg Laboratory. Inc. 
Imagine my surprise when Frank Hogg 
himself came online to speak with me. 

Not only did Frank (he asked me to cail 
him this) bear with me, but he also told me 
what I was doing wrong by trying to copy 
Files, etc. He recommended that 1 read Stmt 
OS 9, which 1 ordered from him. 

Thanks for the help, Frank, and I hope 
your company is around for a long time to 
come. You can call me one satisfied cus- 
tomer. 

Terry W. Alexander 

St. John's, Newfoundland 

Canada 

PEN PALS 

Editor: 

The OS-9 Users Group in the States is 
well-known and you report its activity from 
time to time. 

Are you aware there is an OS-9 Users 
Group in Europe too? It has been installed 
since 1985 when Martin Vernon of Wales 
started it. Its publication is DiskNews. and 
the 20th issue (SS, 40 tracks), full of pro- 
grams, articles, letters, and questions and 
answers, came out in July 1989, 

The group is well-known by European 
Dragon users. Now CoCo owners also join 
the group. The power of the operating sys- 
tem is the program's compatibility. 

For Europeans the importance of Disk' 
News is comparable to that of the Users 
Group in the States before there were Del- 
phi or similar devices. The phone contact to 
the States is beyond the financial capability 
of most OS-9 users in Europe, but we still 
want contact with OS-9 users in the U.S. 

If your readers are interested in more 
information, they can write to me, 

Burghard Kinzel 

beipziger Ring 22A 

D-5042 Eiftstadt 

West Germany 

Peculiar One-Liner 

Editor: 

Just thought I'd write and tell you how 
much 1 enjoy your magazine. It's great! 

A friend of mine just purchased a CoCo 
2, and we have been gleaning all the pro- 
grams we can from the back issues at the 
library. 

We are having a problem, though, with 



the one-liner you had in the June 1989 issue 
called Asteroid Dodge. When you key in 
the program, the computer goes into a fast 
mode and remains there until the Reset 
button is pushed. 

The program also either makes the V go 
across the screen to the left or prints it over 
and over down the middle of the screen. We 
don't have joysticks yet so we modified it 
for keyboard use. Do you think that could 
be the problem? If so. do you have any 
suggestions as to what to add to have key- 
board control? 

We are really havinga hard time finding 
any information about the computer. The 
people at the Radio Shack stores tell us they 
have no books and very few programs for 
the CoCo 2 but plenty for the CoCo 3. We 
would appreciate any help you can give us. 

I would also like to be put on the list for 
pen pals, 

Charles B. Cox 

401 S. Hancock St., Bldg, 35 

Louisville. KY 40202 -11 03 

Gathering Nuts 

Editor: 

I am a 1 3-year-old attending Southamp- 
ton Middle School in Virginia. I own a 
CoCo 3 with 1 28K. I also own a DMP- 105, 
CCR-8 1 , touch pad and FD-50 1 disk drive. 
I have Color Disk EOT ASM and Disk Graph- 
ics, and I wrote this letter with DeskMate. 
I just discovered the rainbow a few months 
back and found a Jot that 1 was missing. 

I would like for any CoCo users in my 
area to notify me. I would like another 
CoCo nut to converse with. 

Edward Grav 

Rt. i,Rn\ 122-A 

Sedley, VA 23878 



THE RAINBOW welcomes letters to 
the editor. Mail should be addressed to: 
Letters to Rainbow, The Falsoft Build- 
ing, P.O. Box 385, Prospect, KY 40059. 
Letters should include the writer's full 
name and address. Letters may be ed- 
ited for purposes of clarity or to con- 
serve space. 

Letters to the editor may also be 
sent lu us through our Delphi CoCoSIG. 
From the CoCo SIG> prompt, type R AI 
to take you into the Rainbow Magazine 
Services area of the SIG. At the RAIN- 
BO W> prompt, type LET to reach the 
LETTERS> prompt and then select 
Letters for Publication. Be sure to in- 
clude your complete name and address. 



THE RAINBOW 



"... Just think of any word 
processing feature—chances 
art: very likely that Word Power 
has it ... packs a lot of features 
... excellent word processor,.," - 
-■ Rainbow's Word Processor 
Comparison Article 'Deciding 
Whui's Right For You" April 
1989 Rainbow: Page 26. 



Word 
Power 3.2 



More Versatile * More Powerful With 
Spooler ♦ Calculator ♦ Split-Screen • 2-Column Printing 



"„. friendly.„amazing execu- 
tion speed...much easier to use 
than VIP software & 2 other 
word processing systems I've 
tried-very u$er-friendly,..mas- 
sive text storage capacity 
...highest among word proces- 
sors..," - Rainbow Oct. S8 
Meview for Word Power 




Unparalleled Power packed in this 100% ML Word Processor 
written from scratch for the CoCo 3! No other word processor 
offers such a wide array of features that are easy to learn & use. 

DISPLAY & SPEED 

Word Power 3,2 runs at double-clock speed 
and uses the true 80-column display with 
lowercase instead of the graphics screen. The 
result is lightning fast screen reformatting and 
added speed! All prompts are displayed in 
plain English in neat colored windows. The current column num 
ber, line number, page number, percentage of free memory is dis- 
played at all times. Even the page break is displayed so you know 
where one page ends and the other begins. The Setup program 
allows you to change fore/background colors as well as (in)visible 
carriage returns. Word Power 3.2 can be used with RGB/Com- 
posite/Monochrome monitors as well as TV. 

MAXIMUM MEMORY 

Word Power 3.2 gives you over 72 K on 128K. and over 
450K on 512K. CoCo 3 for Text Storage - more 
memory than any other CoCo word-processor. 
Period. 

EFFORTLESS EDITING 

Word Power 3.2 has one of the most powerful and user-friendly 
full-screen editor with word-wrap. All you do is type. Word 
Power takes care of the text arrangement. The unique Auto-Save 
feature saves text to disk at regular intervals for peace of mind. 

lnsert/Overstrikc Mode (Cursor Style Changes to indicate mode);OOPS Recall 
during delcte;Typc-ahead Buffer for fast typers; Key-Repeat (adjustable); Key- 
Click; 4-way cursorand scrolling; Cursorto beginning/end of text, beginning/end 
of line, lop/bottom of screen, ncxt/previous word; Page up/down; Delete charac- 
ter, previous/next word, to beginning/end of line, complete line, text before/after 
cursor; Locate/Replace with Wild-Card Search with aulo/manual replace; Block 
Mark, Unmark, Copy, Move & Delete; Line Positioning (Center/Right Jus- 
tified); Set/Reset 120 programmable tab stops; Word-Count; Define Top/Bol- 
tom/Left/Right margins & page length. You can also highlight tew 
(underline-with on-screen underlining, bold, italics, superscripts, etc.). Word 
Power even has a HELP screen which an be accessed any time during edit. 

SPLIT-SCREEN EDITING 

Splits the screen in half so you can view one portion of your text 
while you edit another. You'll love it! 

MAIL-MERGE 

Ever try mailing out the same letter to 50 different 
people? Could be quite a chore. Not with Word 
Power 3.21 Using this feature, you can type a letter, 
follow it with a list of addresses and have Word Power 
print out personalized letters. It's that easy! 




ifiJf 



CALCULATOR 

Pop-up a 4-funclion calculator while you edit! Great for tables! 

SAVING/LOADING TEXT 

Word Power 3.2 creates ASCII format files which are compatible 
with almost all terminal/spell-checking & other word-processing 
programs. Allows you to Display Free Space, Load, Save, Ap- 
pend & Kill Files. The ARE YOU SURE? prompt prevents ac- 
cidental overwriting & deletion. You can select files by simply 
cursoring through the disk directory, Supports double-sided 
drives & step-rates. 



. 



. . 



PRINTING 

Word Power 3.2 drives almost any printer (DMP, EPSON, 
GEMINI, OKIDATA, etc). Allows options such as baud rates, 
line spacing, page/print pause, partial print, page number- 
ing/placement, linefeeds, multi-line headers/footers, right jus- 
tification & number of copies. The values of these parameters & 
margins can be changed anytime in the text by embedding Printer 
Option Codes, The WHAT YOU SEE IS WHAT YOU GET fea- 
ture allows you to preview the text on the screen as it will appear 
in print. You can view margins, page breaks, justification & more. 



PRINT SPOOLER 






Why buy a hardware Print Spooler? Word Power 3.2 has a built- 
in Spooler which allows you to simultaneously edit one document 
& print another. 







TWO-COLUMN PRINTING 

This unique feature allows you to print all or portion of your text 
in two columns! Create professional documents without hours 
of aligning text. 

SPELLING CHECKER 

Word Power 3.2 comes with spelling checker/dic- 
tionary which finds & corrects mistakes in your 
text. You can add words to /delete words from 
dictionary. 

PUNCTUATION CHECKER 

This checker will proofread your text for punctuation errors such 
as capitalization, double-words, spaces after periods/commas, 
and more. Its the perfect addition to any word processor. 

DOCUMENTATION 

Word Power 3.2 comes with a well-written instruction manual & 
reference card which makes writing with Word 
Power a piece of cake! Word Power 3.2 comes on an 
UNPROTECTED disk and is compatible with 
RSDOS. Only $79.95 
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(9am-8pm 7 days/week) 
Technical Support (4-8pm), Order Status, Info, Technical Info; 716-383-8830 
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A Transition at 
THE RAINBOW 



In August I mentioned that THE rainbow might be the second-longest continuously 
published computer magazine in the world (Bvte is first), but now we have a new 
distinction. As of this month, THE RAINBOW is the only computer magazine whose 
managing editor is named after a computer. 

Of course, that is not entirely true. Cray Augsburg was named long before the Cray 
computer came into being. Yet it has always been something of an in house joke around 
here and I would be negligent not to mention it. 

Cray assumes his new position with a vast background in and wealth of knowledge 
about the Color Computer. Those of you who have attended his seminars on OS-9 and 
other subjects at RAINBOWfest and the thousands of you who have obtained answers to 
questions by mail orphonecan attest to that. Additionally and probably most importantly, 
Cray has a fine editing hand from his years as technical editor for THE RAINBOW. 

"Wild Augsburg," as we sometimes call him. for some of his interesting ideas, is 
replacing Jutta Kapfhamer, who has become our advertising representative for Score 
CARD, a weekly sports tabloid we publish in support of the University of Louisville 
athletic program. Jutta's years of experience in the CoCo market will continue to be felt 
and seen here as we go though our transition and as we develop new plans and ideas. 

Because ScoreCARD is published only monthly during the time between the end of the 
basketball and the beginning of the football season, Jutta is looking forward to some 
special projects in the computer area as her time permits. "I want to keep my hand in," she 
told me. 

An example of this is a new product, which we will have available shortly, developed 
and championed by hitia — disks of pictures from our CoCo Gallery. Many of you have 
written or called to ask that these be made available. Jutta initiated the project and has 
pushed it along. If the product is successful, you can expect to see more in the future. 

With the ascension of Wild Augsburg to the helm, I think you will see the rainbow 
move a little more into the technical things many of you have been asking about. At the 
same time, however, Cray's extensive knowledge of the entire CoCo product line will 
bring about easier-to-understand explanations of technical things, making the power of 
the CoCo more available to all of us. 

Let me explain. As you know, one of the basic features of the RAINBOW has always 
been its program listings. We present these listings for two reasons: First, so you can have 
reudy-to-use CoCo programs; and secondly, so you can learn to modify them to your own 
needs and develop abilities to write your own programs. 

It is not enough for us to simply list programs — our copy accompanying them should 
explain what some parts of the program are doing and how they work. I think you will see 
this sort of assistance increase as we go along, simply because of Cray's understanding 
of the programming process. 

No.we will not be turning THE RAINBOW into a technical journal. However, we do plan 
to broaden its scope and depth a bit and to provide more hands-on experience and learning 
opportunities. 

I know you join me in wishing both Cray and Jutta good luck in their new positions. 
The changes, I believe, will benefit all. 

— Lonnie Falk 
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Programming Secrets Galore 



Pokes, Peeks and Execs are your guides into the jungle of computer programming. These commands give you the power of 
Machine Language wilhoul leaving the security of BASIC. Each book is a collection of "inside" information, with explanations 
and examples lo help you immediately put it to use. Everyone from the novice to the professional will find these handy books a 
wealth of information. 







00 POKES, 
PEEKS, N EXECS 
for COCO III 



*40/80 column Screen Text Dump 
■Save Text/Graphics Screen lo Disk 
■ Command/Functions Disables 
•Enhancements for CoCoJ BASIC 
* 128J0512K. RAM Test Program 
MIPRINT Character Modifier 

V Only $19.95 




\ 



>00 POKES 
PEEKS/N EXECS 



* Autostart your BASIC programs 

"Disable Color BASIC/HCB/Disk BASIC 

commands 

■Disable Break Key/ Clear Key/ Reset t5ulton 

'Generate a Repeal-key 

•Transfer ROMPAKs lo tape 

•Set 23 different GRAPHIC modes 

'Merge two BASIC programs 

•And much much more!!! 

For CoCo 1.2 and 3. Only $16. 95 
X ALL 3 BOOKS for: $29.<I5 




SUPPLEMENT TO 500 
POKES.PEEKS, 'H EXECS 



200 additional Pokcs,Peeks and Usees 
(500 Pokes Peeks *N Execs is a prerequisite) 
•ROMPAK transfer to disk 
*PAINTwith 65000 styles 
•Use of -40 track single/double sided drives 
•High-speed Cassette Operation 
"Telewriter, CoCo Max enhancements 
* Graphics Dump (far DMP printers) 
/I'ext Screen Dump 

For CoCo 1.2 or 3. Only $9.95 



gj* UNRAVELLED SERIES &%' 



COCO LIBRARY 



An invaluable aid for Basic and Machine Language programme rs, these 
books provide a complete disassembly and annotated listing of the 
RASIC/ECB and Disk ROMs. These listings give complete, uninlcrupled 
memory maps of ihc Tour ROMs. Gain complete control over all versions of 
the color compuicr. 

EXTENDED COLOR BASIC UNRAVELLED: COLOR 
BASK; and EXTENDED BASIC ROM Disassembly: $39.95 
DISK BASIC UNRAVELLED: DISK BASIC ROM 1.1 and 
LO Disassembly : $19.95 

BOTH ECU AND DISK BASIC UNRAVELLED: $49.95 
SUPER EXTENDED BASIC UNRAVELLED; SUPER EX- 
TENDED BASIC ROM Disassembly for CoCo 3. $24.93 
COMP LETE UNRAV ELLED SERIES (all 3 books): $59.95 



CoCo 3 Service Manual: $39.95 

CoCo 2 Service Manual: $29,95 

Start OS9 Book t Disk: $32.99 

Inside OS9 Level II: $19.95 

Rainbow Guide To OS9 Level II: $19,95 

Rainbow Guide ToOS9 Level II Disk: $19.95 

Complete Rainbow Guide To OS9: $19.95 

Complete Rainbow Guide to OS'J 2 Disks: $29.95 

Assembly Language Programmillg(tcpeo): 

Addendum For CoCo3 (tepco): $12 
Color Computer Disk Manual: $29.95 
Basic Programming Tricks: $5! 
CoCo 3 Secrets Revealed: $9! 





GAMES 



(CoCo 1,2,3 unless otherwise specified; min 32K) 




VM&lw 




Warrior King (CoCo 3): $29.95 

In Quest of the Star Lord(CoCo3) : $34,95 Hint Sheet: $3.95 
Hall of the King L2,3: $29,95 ea Trilugy: $74.95 
Pyramix (Cubix for CoCo 3): $24.95 
Kung Fu Dude: $24.95 ] — 

Dragon Blade: $19.95 EraSif" 

Champion: $19.95 
White Fire of Eternity: $19.95 
Quest for the Spirit Stone (CoCo 3): $18 
Slots & Cards (CoCo 3): $39.95 

TREASURY PACK #1: Lunar Rover Patrol, Cubix, 
Declalhon, Qix, Keys of Wizard, Module Man, Pengon & 
Roller Controller. Only $29.95 

TREASURY PACK #2: Lancer, Ms. Gobbler, Froggie, Mad- 
ness & Minotaur, Ice Castles, Galagon, Devious. Only $29.95 
SPACE PAC: Color Zap, Invaders, Planet Invasion, Space 
Race, Space War, Galax Attax, Anaroid Attack, Whirlybird, 
Space Sentry & Storm Arrows. Only $29.95 



iUf 



WIZARD'S CASTLE: A hires graphics adventure game filled 
with tricks, traps and treasures. Req Min 64K. Only $19.95 
Warp Fighter 3D (For CoCo 3): $24.95 
Bash (r 01 CoCo 3): $24.95 
Mine Rescue (ForCoCo 3): $24.95 

Speed Racer: Buckle your seat belt and get ready to race in 
this Pole Position® type game. Only $34.95 
Pinball Factory: Design, Build, Edit and Play the classic game 
of Pinball. Min 64K. Only $34.95 

Demon Seed: Battle the flying, diving & bloodthirsty bats. Only 
$19.95 

Cashman: Explosive color, fast-moving animation and amaz- 
ing sound-effects! Has over 40 levels! $29.95 
Fury: An action packed airborne dogfight simulation. $29.95 
Time Bandit: Fight the Evil Guardians, Killer Smurphs & 
more. Full animation & over 300 screens. $29.95 
Rommel 3D: Exciting 3-D Tank Combat Game. CoCo 2.$34.95 
Outhouse: One of Ihc funniest, most original games. Excel- 
lent graphics, sound effects & payability. $19.95 
Mudpies: Crazy circus fun! Only $29.95 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618. 
To Order: Refer to Page 17 of our 6-page ad series (Pgs 7-17) 

Credit Card Toll Free Orderline 1 -800-654-5244 (sam - bpm i days/week) 
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CoCo Gallery 



I st Place 





SHOWCASE YOUR BEST! 

Ydli are invited io nominate original work 
for inclusion in upcoming showings of 
"CoCo Gallery." Share your creations with 
the CqCo Community! Be sure to send a 
cover letter with your name, address and 
phone number, detailing how you created 
your picture (what programs you used, 
etc) and how to display it, Also please 
include a few facts about yourself. 

Don't send us anything owned by some- 
one else, this means no game screens, 
digitized images from TV programs or 
material that's already been submitted 
elsewhere, A digitized copy of a picture that 
appears in a book or magazine is not an 
original work. 

We will award one first prize of $25, one 
second prize of $15 and one third prize of 
$10. 

Please send your entry on either tape or 
disk to the CoCo Gallery, THE RAIMBOW. 
P.O. Box 385, Prospect, KY 40059. Re- 
member, this is a contest and your entry 
will not be returned. 

—Tony Olive, Curator 



2nd Place 



Witch 



Ken Robinson 



What is that up in the air? It's a bird, it's a mop — no, it's Wonder Witch 
casting another kexs. Ken, who lives in Port Colborne, Ontario, 
designed this picture using The flat package. 




Gannon 



Joel R. O'Rear 



3rd Place 




This pieasant scene was created with CoCo Max Hi. Joel 
lives in Tucumcari, New Mexico. He has enjoyed photog- 
raphy since his days in the Navy and now transfers 
pictures to the CoCc. 



Tour De Rainbow 
Domingo Martinez 

Domingo, of Miami, 
Florida, hopes to earn a 
bachelor's degree in 
computer and information 
systems. His creation was 
produced with a BASIC 
program he wrote on the 
CoCo 2. 
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COCO UTILITIES GALORE 

(For CoCo 1,2,3 RSDOS; Miri 32K Unless Otherwise Specified) 



OS9 



Super Tape/disk 
Transfer 

Transfers Tape-To-Disk, Disk" 
la-Tapc,Disk-to-Disk,Tape-To- 
Tape. Only $24.95 $19.95 

Maillist Pro 

Add, Edit, View, Print 
(Select/All), Sort Mailing 
Labels. OnlyjLf*^ $14.95 

Computerized 
Checkbook 

Add, View, Starch & Prim 
Checkbook Entries for savings/ 
checking &. cither accounts, 
OnlyJt^aC $14.95 

CoCo 3 Screen Dum| 

32/40/80 column, PMODE 3/4 
dump. Allows you to take snap- 
shots of screens while program 
is running! For DMP & Epson/ 
Gemini/ Star & Compatibles. 
OnlySMtaS* $14.95 (CoCo2com- 

paliblc) 

IU.U Patch 

Displays most graphics in Color 
on RGB Monitors. For CoCo 
3.0nlyl$243£ $19.95 



Create up to 20 function Keys. 
EPROMable. For CoCo 3,Only 
$19.95 

Sixdrive 

Allows use of 3 double-sided 
drives from RSDOS or ADOS. 
Disk Only $16.95 

Disk Label Maker 



Design Professional labels. Al- 
lows expanded, normal, con- 
densed text w/ Double-Strike & 
Borders. Supports DMP, Star, 
Gemini, Epson & Camp. 
Printers. OnlyJ&ftSS/ $14,95 

Disk Utility 2.1 a 

The best disk management 
program for the CoCo 2 & 3. 
OnLy'St**^ $9.95 

BowlingScore Keeper 
For Team & Individuals. $19.95 



Vcr Tape Orgranizer 

Organize your videotapes.Only 
St&SC $14.95 

Home Bill Manager 

Organize youi Uilh Oak $12.95 

Calendar Maker 
Calendr &. Appts. Only $12.95 

From Cer-comi 

Window Master: Windowing En- 
vironment for CoCo 3. $69.95 w/ 
HiRcs: $79.95 
Window Writer: $59.95 
Window Basic Compiler: $99 
Window ED/TASM: $49.95 
Font/Icon Editors: $19.95 
Advanced Prog. Guide: $24.95 

CBASlC:Basic Compiler. Specify 
CbCo 1,2 or 3. Only $149.95 
The Source: Best Disassembler, 
Specify CoCo 1,2 or 3. $49.95 
EDT/ASM: Besi Assembler. Specify 
CoCo 1,2,3. $59.95 

Telewriter 64 

Best Word Processor for CoCo 
Disk; $57.95 Cas: $47.95 

Autoterm 

Best Terminal Software. Disk: 
$39.95 Cas: $29.95 

From Dr. Preble® 

Basic Freedom: $24.95 
Vocal Freedom: $34.95 
Mental Freedom: $24.95 
Hacker's Pac: $14,95 



Use all 360K fmm your double 
sided drive & more. $17.95 
MEMORY MASTER 
Run 2 programs at once, fix 
disks, scan, edit memory on 
CoCo 2. Only $24.95 

Vterm 

Terminal Software w/ 
Emulations and much more. 
CoCo 3 Only, Only $39.95 




iiur 



A High Quality Digital Audio 
Sampler & Sequence for CoCo 
3. Only $49.95 



The revolutionary program that 
allows you to use Basic under 
OS9 Level II to take advantage 
of features such as no halt flop 
pies, hard disks, 2 Mhz opera- 
tion and more. Only $39.95 

"SarTS? 

An excellent hands-on guide to 
OS9 Level II for the beginner. 
Req 512K, 2 Drives & Monitor, 
Book & Disk Only $32.95 

More Good Stuff.. 

OS9l^v^Tirffi : V3!oTTlie ab- 
solute best BBS program for 
OS9. Even comes with its own 
terminal Program. Req. 512K & 
RS232 Pack. Only $29,95 
Level II Tools: 25 utilities such 
as windowing, wildcards, tree 
and more. Only $24.95 
Disk Manager Tree: Change, 
copy, view.creatc directories 
with ease. Req 512K. $29.95 
Warp One: Complete Level II 
Windowing Terminal. Req 512K 
& RS232 Pack. Only $34.95 
The Zapper: Patch Disk Errors. 
Disk Only $19.95 
Multi-Menu: Create your own 
pop-down windows. Req 512K 
and Multi-Vue. Only $19.95 
Presto Partner: Have a notepad, 
calculator, calendar, phone 
book,RT clock & more at your 
fingertips. 512K Req. $29.95 

Transfer Utilities 

GSC File Transfer: Transfer 
files from MSDOS / OS9/ 
RSDOS & Flex. Req OS9 (Level 
II for Muttivue Ver.),2 drives, 
SDISK/SDISK3. Standard Ver- 
sion: $44.95. Multivue Version; 
$54.95 

SDISK3: Standard drive re- 
placement module allows use of 
40/80 DS/DD drives. Req. OS9 
Level II. $29.95 SDISK: $29.95 
PC-Xfer Utilities: Programs to 
format/transfer files to/from 
MSDOS disks to CoCo under 
Level 1/2. Req SDISK(3): $44.95 

OS9 Level II Ramdisk 

In-memory disk drive! Req 
512K. Disk Only $29.95 
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Goldberg Utilities 

Power-packed utilities with 15 
useful commands such as sort, 
base conversion, losl file loca- 
tion, disk pack & much more. 
Only $24.95 

rom Burke & Burke®. 

WuTT ,i MV^V^STlT S ule 
"wildcards" with OS9 & re-ar- 
rangc directory tree. $19.95 
EZGen Version 1.04: Powerful 
OS9 bootfile editor. Changes 
names, add/delete modules, 
patch bytes, etc. $19.95 

From Microtech®... 

XWord: Best OS9 Word Proces- 
sor with True character oriented 
& more. $69.95 

XMerge: Mail Merge for 
XWord. Only $24.95 
XSpell: 40000 word spelling 
checker. Only $39.95 
XED: OS9 Full Screen Editor. 
Only $39.95 

XDIS: OS9 Disassembler. 
$34.95 

XTerm; OS9 Communications 
Program. Only $49,95 
XDIr & XCal: Hicrarchial direc- 
tory, OS9 calculator. $24.95 

From FrankHoj 

Dynastar: Most Popular OS9 
Word Processor. Only $99.95 
Dynaspell: Spelling Checker. 
Only $74.95 

Hoi h Dynastar & Spell: $124.95 
Wiz: Communications Program. 
Req RS232 Pack. $59.95 
Inside OS9 Level 11:$ 19.95 

From Sugar Software® j 

OS9 Calligrapher: Turn your 
printer into a calligrapher's quill 
& make beautiful flyErs, invita- 
tions, etc. Includes 3 fonts. Only 
$24.95 



Powerful OS9 word processor 
with multi tasking, pull down 
menus & much more, Only $59 



Create, Edit Application Infor 
mation Files & Icons for Multi 
Vue. Only $24j5 




Wrapp i ng THE RA I NBOW 



An Electronic 
Evolution 



I bought my first Color Computer in 
October 1982 and my first issue of 
our magazine in January 1 984. As en- 
thusiastic as I was, at that time you 
couldn't have convinced me I was to 
become an integral part of the rainbow. 
And as technical editor over the past three 
years, I could only dream of sitting behind 
Ihe managing editor's desk. Yet here I am, 
full of ideas and rarin' to go! 

Generally I'll be using this new column 
to discuss how changes in the CoCo Com- 
munity affect publication ofTHERAlNBOW, 
but I want to address a couple of more local 
concerns this month. First we have re- 
ceived a number of letters regarding the 
listings in the August 1988 issue. They 
were fairly light. In fact some of them were 
downright hard to read. For this I offer an 
apology to those of you who tried to enter 
those listings by hand. If you succeeded, 
give yourself a pat on the back. 

You see, we have gone into full swing 
with our electronic publishing. In the past 
RAINBOW listings were generated from a 
working copy of the program on an HP 
LaserJet printer using a Courier typeface. 
We then pasted the hard copy to a hoard {a 
ruled piece of posterboard) and took a 
negative transparent photograph of that 
board. A plate was created from the film 
and used to print the magazine. 

In a constant effort to budget as best we 
can (one reason we have been able to hold 
the line on subscription rates for three years 
now), we found an easier, and more cost 
efficient way of producing the rainbow. 
Currently the listings are generated as ASCII 



files, ported into Aldus PageMaker through 
our computer network, and placed on an 
electronic tL page." To get the 32-column 
listings to line up properly, we selected a 
Letter Gothic font for its mono-spaced 
properties — in other words each character 
is the same width. 

Our goal has been to create each page of 
the magazine electronically and, using a 
Linotronic typesetter, print those pages 
directly to the film. What we didn't realize 
is that the lines used to create characters in 
the Letter Gothic font are so narrow they 
don't reproduce well when the printing 
plate is created from the film. 

As you may have noticed, the listings in 
the September issue are far more legible. 
As soon as we discovered the lightness of 
the August listings, we found another mono- 
spaced font and corrected the situation for 
future issues. (Incidentally the new font is 
Courier, just as we originally used with the 
LaserJet.) 

On a somewhat related matter, most of 
you have no doubt noticed the size of the 
RAINBOW, While it is easy to scythe maga- 
zine should be bigger, the situation is a little 
more complex. Reality dictates the size of 
the magazine whether we like it or not. So 
in an attempt to provide you with the most 
bang for your buck, we will be experiment- 
ing with several different space-saving tech- 
niques as we ennti nue our Color Computer 
journey. 

One of the changes we are working with 
s running three-column listings. In future 
ssues you will find some listings appear- 
ng just a little smaller so that we can pack 



more into the magazine. When we tried this 
before, we received some complaints from 
readers having trouble reading the listings. 
We understand. Still, we must consider the 
trade-offs. Our goal is to give yon the 
meaty magazine you want. And because of 
the clarity possible with our move to elec- 
tronic publishing, you will find these list- 
ings far easier to read than those from the 
days of the LaserJet. 

The long and short of this is that THE 
rainbow staff works hard to provide the 
best possible source of information on the 
Color Computer. We are willing to try new 
things — make changes for the better, And 
I believe you will see this more and more as 
we work to put out the magazine you want 
and deserve. 

Ordinarily I would ask for your com- 
ments and suggestions at this point. While 
we still welcome your input, I am going to 
ask you to wait for the November issue, 
which will include a reader survey to allow 
us to more accurately interpret your feed- 
back. 

1 have a million ideas forTHE RAINBOW, 
but — as you will see in the coming months 
— implementing those ideas depends on 
you as well. The CoCo Community is self- 
perpetuating. And you have as much con- 
trol over and responsibility for its existence 
as THE RAIN bow does. Tandy laid the foun 
dation many years ago. Now it is up to all 
of us to top the structure out. 1 am delighted 
to be working with you as we forge ahead. 



— Cray Augsburg 
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DISTO PRODUCTS 



All Disto Products now carry a 1-Year Warranty and are 

shipped 2nd Day Air (at no extra charge!) within Continental 

US. All Disto Add-Ons (& Super Controller U) include OS9 

Drivers, unless otherwise specified. 



Disto Mini Controller (with RSDOS or CDOS) s $74.95 

Disto Super Controller (with RSDOS or CDOS): $99.95 

Disto Super Controller II (with RSDOS or CDOS): $129.95 

• Mini Eprom Programmer Add On: $54.95 

• Hard Disk Adapter; $39.95 w/ RS232: $69.95 

• RT Clock & Printer Interface: $34.95 (OS9 Driver: $19.95) 
• 3-in-l Multiboard Adapter: Parallel Port, RT Clock & 

RS232 Port. $74.95 
■ M ER Adapter: $34.95 

• 4-in-l Board: Parallel Port, RT Clock, RS232 & Hard Disk 

Interface: $114.95 
RS232 Super Pack: True RS232 Port for your CoCo! Com- 
patible with Tandy® RS232 Pack. Includes DB25 Cable. 100% 
Compatible with OS'J ACIA Software, Req. Multipak. Only 
$54.95 




DRIVES 




HARD DRIVES, Etc. 

Systems w/ Seagate Hard Drive, Controller, Cables, CoCo XTl 
Interface, Cables, Case (with fan & Power Supply), Software! 
(OS9 Software & HYPERIO Software!) & Instruction Manuals | 
Assembled/Tesled/Formatled. Just Phig'N'Rim* Req. 
The Best Hard Drive Deal for the CoCo. 



r 40 Meg Syster 

Seagate 20 Meg System: $509 $P SBdQ^tiSi $559 

Seagate 30 Meg System: $539 " ^ ^^ ^ 

CoCoXT:Use2 5-120 Meg Drives with your CoCo. Only 5.69.95 

w/ Real Time Clock: $99.95 

CoCo XT ROM: Boots OS9 from hard/floppy. Only $19.95 

HYPERIO: Allows Hard Drive use with RSDOS. Only $29.95. 

HYPERIO Disto Version (for Disto Hard Drive Interface 

users). 

HYPERIII: Adds RAM Disk & Spooler to CoCo 3 HYPER I/O. 

Only $12.95 

HYPERIO I Itilities fby Kevin Iterner) 
Hard Drive Utilities: MSA Backup, Copy/Kill/Rcname, Hard 
Disk Backup to Floppies (vica versa) & more. Only $21,95 
Disk Doctor: Checks/locks out bad sectors, only $17.95 
Hard Drive Zap: View tracks, sectors, modify data on your hard 
disk. Only $21.95 



There arc a lot of dealers selling disk drives for the CoCo. Why buy from us? First, 
all our drives are BRAND NEW Fujitsu DOUBLE SIDED Drives. They are sicek, 
fast (6ms!), quiet and have a reputation of superb performance and reliability. Second, 
our Drive & 2 Drive Systems come with the acclaimed DISTO Controller - with gold 
plated contacts & built-in ROM which allows you to access BOTH sides ofour drives!. 
Third, our Drive & 2 Drive Systems come with the Official 200 page Radio Shack 
Disk Manual. Fourth, you get $50 worth of our utility software (Disk Util 2.1A & 
Super Tape/Disk Transfer). Our drive systems are head & shoulders above the rest! 

Drive (with Disto Controller, Case, Power Supply, 1 Drive C^ble, Manual, Software): $199 

Drive 1 (with Case, Power Supply & Software): $129 Bare 5 1/4" Drive: $89 

2 Drive System (With Disto Controller, Case, Power Supply, 2 Drive Cable, Manual & Software): 

$299 

1 Drive Cablet $16.95 2 Drive Cable: $22.95 4 Drive Cable: $34.95 

r D501 Upgrade Kit: Bare Drive, 2 Drive Cable & Instructions: $109 

FD502 Upgrade Kit: Bare Drive, 2 Drive Cable, Power Cable & Instructions: $119 



MAGNAVOX 8CM515 RGB 
Monitor 

Razor Sharp picture quality 

for your CoCo! Has 14" 

Screen, Anaiog/TTL RGB 

& Composite Inputs for 

CoCo 2/3, Speaker.Tcxl Display Switch, 

Tilt Stand & 2 Year Warranty. Compatible 

with CoCo, IBM & many oiher computers! 

Only $259 (add $12 S&H/$40 in Canada) 

Lowest Price in the Rainbow ! 




Magnavox RGB Cable for CoCo 3 and 

Composite Video / Audio Cable Set with 
Purchase of Monitor: $19.95 




More Good Stuff... 

DS69B Digitizer: Use your CoCo to display pictures from your VCR. Comes complete with CSEE 
Software. Only $149.95. CoCo 2 Version: $99.95 



*»y 



Questron Joystick (fbrCoCo): Atari type joystick w/ Rapid Fire. Only $29.95 

Advanced Gravis Joystick: Features tension, rotary centering, free floating controls with 3 buttons. 

Only $59.95 

RS Speech & Sound Cartridge: $39.95 (limit 

MPI Locking Plate (Specify 26-3024/3124): $H 

5 1/4" DS/DD Disks: $.40 each 

5 1/4" Colored DS/DD Disks: $.89 each 

3 1/2" DS/DD Disks: $1.49 each 

5 1/4" Disk Case (for 70 disks): $9.95 

3 1/2" Disk Case (far 40 disks): $7.50 



MJF 




Rascan Video 
Digitizer 




NX1000 Color Ribbon:$12.95 
IN X J (lull Black Ribbon: $8.50 
Seikosha, EPSON, DMP,Panasonie, Okidat 
Gemini Ribbons: Only $8.50 each 



State-of-the art video 
digitizer for the CoCo 3. 
640x200 & 320x200 work 
area in color! Includes 
pop-up menu system, 
driver software & print 
driver disk. 

Only $159 



Hardware Hackers: We 

are interested in your 
projects. Excellent royal- 
ties. Call 716-383-0026. 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618. 
To Order:Refer to Page 1 7 of our 6-page ad series (Pgs 7-1 7) 

Credit Card Toll Free Orderline 1 -800-654-5244 (9AM - spm 7 days/week) 

Tech. Info (Between 4-8pm), Order Status, Into: 716-383-8830. Fax: 71 6-383-G026. 



CoCo Consultat i ons 



Lost Interrupts 

Many OS-9 users who use a Mu/ti-Pak 
and an RS-232 pack have now strapped the 
CART interrupt inside their Muhi-Paks, in 
an effort to eliminate glitches caused by 
lost interrupts. However, when using the 
serial port, their systems still lock up. This 
problem is often due to two nearly adjacent 
interrupts arriving at the GIME chip, which 
fails to properly process both due to a 
curious idtosyncr&ey in how it detects the 
CART interrupt. This ran cause the RS-232 
pack to lock up in some cases. 

We both have developed similar fixes to 
cure this problem of lost interrupts. Roger 
Kmpski uses a Germanium orShoiky {low- 
voltage drop) diode between the CART inter- 
rupt where it enters the GIME chip and the 
I RO line as it leaves the GIME chip and is 
passed on to the 6809 itself. Bruce Isted 
accomplishes the same thing using a trace 
cut and a jumper at the 40-pin system port 
to stunt incoming CART interrupts directly 
to the 6809, This completely cures prob- 
lems we were having with lost interrupts. 
Roger Krupski and Bruce Isted 

Thanks for alerting me to the diode/ 
internal CART fix for GIME-rekted OS-9 
interrupt handling problems. I hope to 
present more elaborate details on how to do 
this fix and the reasons for it in a future 

issue of THE RAINBOW. 

Texan Connection 

How do I connect the monitor made by- 
Texas Instruments for its TI 99 computer to 
my CoCo 3? 

Gregg Stavinski 
Kulpmont, Pennsylvania 

The monitor you mention is a decent- 
quality composite video monitor and can 
be directly connected to the CoCo 3 using 
standard RCA-male-to-RCA-male phono 
plug cables. Radio Shack Catalog No. 42- 
2367 is a good example of such a cable. 



Martin H. Goodman, M.D., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Coselt of 
the CoCo world. On Delphi, Marty is the 
SIGop of rainbow's CoCo SIG and data- 
base manager of OS-9 Online. His non- 
computer passions include running, moun- 
taineering and outdoor photography. Marty 
lives in San Pablo, California, 




By Marty Goodman 
Rainbow Contributing Editor 



1 wo are needed, one to connect the video 
output of the CoCo 3 (the red RCA jack on 
the back) to the video inputof yourmonitor, 
and one to connect the audio output of the 
CoCo to the audio input of your monitor. 
Note that the audio cables I recommended 
above are not ideal: Actually 75-ohm video 
coaxial cables are better. But the Radio 
Shack cables are readily available and work 
adequately. Also note that because the 
monitor is being fed by a composite video 
signal, not an RGB signal (the monitor lacks 
RGB inputs), you are not able to adequately 
resolve 80-column text, and with some 
software you need to use options available 
to tell the software that you are using a 
composite video monitor, not an RGB 
monitor. 

Exclamation Explanation 

/ have a BASIC program that I wrote on 
my CoCo 3 and saved to disk. When it is 
loaded into a CoCo 2, the CoCo 3 BASIC 
commands are replaced by exclamation 
marks. Why? 

Clayton Shaffer 
Visalia, California 

When you save a basic program to disk 
in the normal fashion, the program is "to- 
ken ized." That is, critical commands and 
phrases in BASIC are not saved out as the full 



text but as two-byte tokens. These tokens 
allow the program to take up less space on 
the disk and in memory and to be proc- 
essed much faster during execution. 

The CoCo 3, as you know, has more 
BASIC commands and keywords than does 
the CoCo 2. The BASIC in the CoCo 2 is set 
up so that if it sees a token it does not 
recognize, it puts an exclamation mark on 
the display of the token. Note that if the 
CoCo 3 encounters a token it does not 
recognize, it hangs up and crashes due to 
an oversight in the programming of its 
basic. If you want to use your CoCo 2 to 
edit BASIC programs written on the CoCo 
3, you need to first save the CoCo 3 basic 
program to disk in ASCII form (using the 
command SAVE "FILENAME" , A), then take 
the file and load it into a word processor on 
the CoCo 2, 

Mouse and Ball 

What sort of mouse or track ball can be 
used on the CoCo 2 and 3? 

Henry Stiehl 
Richey, Florida 

Only mice and track balls specifically 
made for the CoCo 2 and 3 can be used 
with them. The vast majority of "bus mice" 
and "serial mice" used on IBM PCs and 
other type computers cannot be used with 
any model CoCo. This limits you to the 
mouse sold by Tandy and to the ancient 
Wico track ball, which may still be avail- 
able from Zebra Systems. Note the mice 
and track balls made for the CoCo 2 and 3 
work with any program that uses the joys- 
ticks — they just plug right in. 

What's the Deal? 

in the June 1989 rainbow Tony Di- 
Stefano said 80-track drives won't work as 
40-track drives. I have two I'/i-inch 80- 
track drives that I use under Disk BASIC, 
and (hey work perfectly. What is going on 
here? 

Larry K, Williams 
Athens, Georgia 

Tony was saying that you can't prop- 
erly use 5H-ineh 80-track (720K) drives to 
produce a disk that can be reliably read on 
a 40 track (360K) 5 J /2-inch drive. You cer- 
tainly can't write new files using a 554 -inch 
80-track (720K) drive to a 5% disk format- 
ted on a 40-track (360K) disk drive. What 
you're doing is just using the first 35 tracks 
on one side of those 3 1 /i-inch drives (thereby 
wasting over three-quarters of their stor- 
age capacity). 
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BIG BASIC 



Full Power for your CoCo 3! 

(From Danosoft) 

Gives up to 92K User Memory in 1 28K CoCo and 476K in 51 2K 
CoCo from BASIC with any mix of program/variables. You can 
have one BIG program or 58 Separate ones running at once 
from computer memory in multiple windows! Big Basic also 
allows you to Disk Chain any size program. Step up to the 
full potential of your CoCo 3 with Big Basic, Only $39.95 



KEYBOARDS, ETC... 






512K Upgrades*!*** 



Keyboard Extension Cable allows you 
to move your keyboard away from the 
computer & type with ease. Use your ex- 
isting keyboard or leave your present 
keyboard intact and use a second 
keyboard. Only $39.95 
CoCo 3 Keyboard: $39.95 w/ Exten- 
sion Cable: $69.95 

CoCo 2 Keyboard: $19.95 w/ Extension Cable: $49.95 
(CoCo 3 Keyboard includes free Function Keys Software) 



Fully assembled, tested and ready to be shipped NOW! Our 
design allows mounting chips on top to prevent any heating 
problems. No soldering; Easy instructions for 2 minute instal- 
lation! Comes with following software (value $100): 

• 512KRamtest 

• 51 2K Backup Lightning 

• 512K Print Spooler 

• 512K Ramdisk 

• OS9 Level II Ramdisk 
The absolute best 51 2K Upgrade Package Available! 
90 day warranty! New LOW PHce $109 

OK Upgrade Board (with 51 2K Ramtest/Ramdisk/Spooler): $39.95 

Upgrades for CoCo 2 

64K Upgrade (8 chip) for CoCo !, CoCo ll's with Cat # 26 
3026/3027/3134/3136: $29.95 

64K Upgrade (2 chip) for 26-3134 A/B CoCo II: $39.95 
(Free 64K Software included with 64K Upgrades) 




EPROM 



rrwffTrmf/iin 



INTRONICS EPROM PROGRAMMER: Programs 2516 to 

27010 & more! Includes software & complete documentation. 

Latest version. Lowest Price Anywhere. CoCo 1,2,3. Only 

$137.95 

DATARASE Eprom Eraser: For 24/28 pin Eproms. Erases up 

to 4 EPROMs at a time. Only $49.95 

Both Eprom Programmer & Eraser: $179-95 /*— "» **/ 
2764 Eprom: $S 27128 Eprom: $9 i ,., 

ROMPAK (w/ Blank PC Board, 27xx Series): $12.95 
BLANK CARTRIDGE (Disk Controller Size): $10.95 







COMMUNICATIONS 
EXTRAVAGANZA 

(1) Avatex 12Q0e Modem: Fully Hayes Compatible 300/1200 
w speaker, Auto Dial/Answer/Redial. 

(2) MODEM CABLE (4ptn to DB25; Reg $19 .95) 

(3) Autoterm Software (Reg $39.95) 

(4) Free CompuServe Offer & Access Time 

(5) UPS 2nd Day Air Shipping 

Only $129.95 
Avatex 1200e Modem Only : $85 
Zoom 2400 Modem Only: $149 
Communications Extravaganza 2400: includes 

Zoom 2400 baud modem, cable, software & 2nd Day Air Ship- 
ping. Only $189.95 

Alt our modems carry a 2 Year Warranty! 



CABLES, Etc. 

Mag na vox 85 05/85 15/8CM 643 Analog RGB Cable: $24.95 

Serial-to-Parallel Interface: Use your parallel printer at high 

speed (300-9600 baud) with the CoCo. Comes with all cables. 

No software compatibility problems. Only $44.95 

15 Shielded Multipak Extension Cable: $36.95 

Y Cable: Use your disk system with Speech/RS232 Pack, 

DS69 Digitizer, etc. Only $27.95 fi 

RGB Analog Extender Cable: $19.95 

SONY Monitor Cable: $29.95 

MODEM Cable: 4 pin to DB25. Only $19.95 

2 Position Switcher: Hook 2 devices to serial port. $29.95 

HI-RES Joystick Interface: $11.99 





CHIPS, Etc. %%*| 

Genuine RS Disk Rom 1.1 (Needed for CoCo 3): $29.95 

ECB Rom 1.1: $29.95 

68B09E Chip: $14.95 68B21 Chip: $5.95 

GIME Chip for CoCo 3:$39.95 

Genuine RS Multipak PAL Chip (Specify se-3024 / 26-31 £4): I 



$19.95 

PAL Switcher: Allows you to switch between CoCo 2 & 3 1 
modes when using the Multipak. You need the OLDER & 
NEW PAL Chip for the 26 3024 Multipak. Only $39.95. With] 
NEW PAL Chip Only $49.95 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618 " l wS4 




To Order: All Orders $75 & above (except Printers, Monitors, Drives, Computers) shipped by UPS 2nd Day Air at no extra 
charge in Continental US. We accept Visa, MC, Amcx, Discover, Check, MO & School PO's. Please add $3,00 S&H ($10 for 
Drives) in Continental US; all others add 10% S&H (Min $5). NYS Residents please add sales tax, Our Au stra lian Agent : 
Australian Peripheral Development. Ph: 07-341-9061 

Credit Card Toll Free Orderline 1-800-654-5244 (9AM - 8PM 7 days/week) 

Tech. Info (Between 4-8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 
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Can't Get It to Work 

/ want to use four disk drives on my 
CoCo. When 1 try to hook a given drive in 
as the fourth drive {Drive 3). if does not 
work. The motor goes on when 1 try to 
access it , but the drive select light does not. 
Can you help? 

George Alien 
Philadelphia 

The CoCo accesses the fourth drive 
(Drive 3) in a .somewhat different fash inn 
from many other computers. Most other 
computers and disk drives are set up to have 
a drive select line for the fourth drive on Pin 
6 of the 34-pin drive connector. But the 
CoCo's Drive 3 select line is on Pin 32, Pin 
32 is used by most modem fluppy drive 
systems as the Side Select line. (Note that 
the CoCo's disk controller hardware and 
software as supplied was never designed to 
use double-sided disk drives.) 

Those people using double-sided drives 
with the CoCo must content themselves to 
using no more than three physical drives 
unless they want to do significant custom 
hardware and software modifications. If 
you want to hook up four single-sided 
drives, you must do the following to the 
fourth drive: 

• Cut Lhe trace leaving Pin 6 of the 
drive's 34-pin connector, and cut the trace 
leaving Pin 32 of the drive's 34-pin con- 
nector. 

• Tie the trace that used to go to Pin 32 
to a source of +5 volts on the drive via a 
4.7K pull-up resistor. Now route the trace 
you freed up from Pin 6 to Pin 32 via a wire 
jumper. 

• Jumper the drive so it is selected as 
Drive 3. 

If you own double sided drives, the best 
thing to do is just use no more than three of 
them on one system, 

ADOS 3 and BASIC 

What can ADOS 3 do for me regarding 
full use of 80-track, double-sided drives 
under BASIC? 

Gary Carter 
Liberty, Kentucky 

ADOS 3 allows you to use up to two 
double-sided 80-track drives as if they were 
four single-sided 80-track drives. It does 
not allow, you to mix 80- and 40-track 
drives in a convenient way, though you can 
use it to get data over from your 3 5- and 40- 
track drives to your new 80-track system. I 



know of no software for Color BASIC that 
allows you to use a double sided 80-track 
drive as a single 720K drive. 

Modem But No Power 

/ obtained a TRS-80 DC -2 2 12 modem, 
but no power supply for it. / cannot get one 
through Radio Shack because they are no 
longer available. I am told it requires a 
source of 16.2 VAC. 1 have a 20-VAC .51 
amp power supply. Can I use that? 

Paul- Joseph de Werk 
Pittsburg, California 

Devices that specify a given AC voltage 
for their power input can usually run per- 
fectly well from power supplies within two 
or three volts of the rated value. If you put 
too much voltage into them, an internal 
voltage regulator may run too lint. Your 20 
VAC .51 amp power supply might be a 
little high. I'd consider using a dropping 
resistor in series with your supply. Mo- 
dems like those often draw between a quarter 
and a half an amp. 

I suggest dropping the voltage by about 
4 volts. Using the appropriate version of 
Ohm's law (R-E/I. where E=4 volts and 
l=between .25 and .5 amps), it seems you 
can try a dropping resistor in series with the 
power supply of a value between eight and 
16 ohms. Use 5-watt or higher wattage 
resistors for this dropping resistor. 

Tn get the right value, all you need is an 
AC volt meter and a bunch of 5- or 1 0-watt 
resistors. You can buy the resistors at Radio 
Shack. (See the listing of wire-wound re- 
sistors on Page 130 of the 198" U.S. Cat. 
No. 432.) 

I suggest getting two of the 10-ohm. 10- 
watt resistors (Cat No. 27 1 - 1 32) and hook- 
ing both up in series with the power supply 
and the modem, then measuring the AC 
voltage where the power enters the modem. 
If it is within two volts of 16 volts, you are 
fine. If not, adjust the resistance accord 
ingly. Note that two 10 ohm resistors in 
parallel amount to a 5-ohm resistor and that 
two 10 ohm resistors in series amount to a 
20-ohm resistor. 

Burned Out 

Can you give me any advice on repair- 
ing a burned out CoCo 3 and Multi-Pak? I 
hear replacement G1ME chips cost $50 
and are available only from Tandy. What 
about hooking a non-CoCo type switch 
matrix keyboard to the CoCo 3? 

John H. Opheim 

Most of the time when you fry a CoCo 3, 



it is just the 6B809E chip (the central proc- 
essor chip) that has died, This 40-pin chip 
is relatively inexpensive ($6 or so) and 
widely available (Jameco and JDR, for 
example, usually stock it). Unfortunately, 
it is soldered directly into the CoCo 3 
motherboard, so some degree of hacking 
skill is required to remove the old one and 
place a socket there in which to put the new 
chip, This must be done without damaging 
the CoCo 3 motherboard. Less frequently a 
RAM or PIA chip blows on the CoCo 3. 
Curiously, the G1ME chip does not often 
get fried. And, you will be happy to learn 
that when it does, the replacement GIME 
chip from Tandy national parts now is 
available for around $25, 

As far as using a non-CoCo 3 keyboard, 
I'd advise you not to bother. Seven years 
ago when the only CoCo-type keyboard 
was the uliicklet type, I totally rewired the 
matrix on some non-CoCo keyboards for 
my CoCo. It was a tedious matter. I'd never 
do it again with replacement keyboards 
available so inexpensively. 

Tape Trouble 
When my CoCo is on for a long time, I 
find my cassette tape programs have trouble 
loading. What is the problem? 

Fred J. Slagle 
Momstown. Tennessee 

Your CoCo may benefit from the addi- 
tion of a small fan over the power supply. 
While there are other ways of dealing with 
problems relating to mild overheating, the 
addition of a fan is by far the easiest to 
accomplish. 



Your technical questions are wel- 
comed- Please address them to CoCo 
Consultations, THE RAINBOW, P. O, 
Box 385, Prospect, K Y 40059. 

We reserve the right to publish only 
questions of general interest and to edit 
for brevity and clarity. Due to the large 
volume of mail we recieve, we are unable 
to answer letters individually. 

Questions can also be sent to Marty 
through the Delphi CoCo SIG. From 
the CoCo SIG> prompt, pick Rainbow 
Magazine Services, then , at the RAIN- 
BOW> prompt , type ASK (for Ask the 
Experts) to arrive at the EXPERTS> 
prompt , where you can select the "CoCo 
Consultations'^ line form which has 
complete instructions. 
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3 Fabulous Bargains! 

These specials will be withdrawn without notice. Don't miss them! 




The Dazzling Word Processor 
$0 95 




Max— 1 0: the Rolls-Royce of word processors. The only one with true 
graphic capability and dozens of type styles. Using your dot matrix printer 
you get from Mn y footnotes (6 point) to big titles {24 point), 

The Rainbow review (1/89) said: "An incredible job of providing 
power, flexibility and speed in a program that is as easy to use as it is 
to pronounce! ... Max-10 takes a back seat to none, and is beyond 
comparison with most." Max-1 0, the only word processor with "What 
You See Is What You Get". A word processor you will love at first sight. 



C0C0 Max HI: now a classic and probably the most popular C0C0 pro- 
gram ever. If the price was the reason that stopped you before, this special 
will delight you. Listen {Rainbow 3/88) ; "There are no limits to what you 
can do with this fabulous program. Speed, ease, animation, power and 
color, all in one package. C0C0 Max 111 is the ultimate program for the 
C0C0 3." Check any Rainbow (up to 4/89) for complete info on C0C0 Max 
To top it off, we include a free Demo Disk plus the super C0C0 Show 
program, which lets you make your own "slide shows". 



Save $70 

BOTH 

C0C0 Max lit and Max-10 for 

only 



79 



Desktop Publishing: together, C0C0 Max 111 and Max-10 form an 
unbeatable system for reports, flyers, invitations, greeting cards, signs. 
newsletters, etc. It's far beyond anything you've ever seen on a C0C0. 

Here is one of the hundreds of unsolicited letters we got; "Max-10 
and CoCo Max III are wonderful. They are the first Color Computer 
products I have purchased that were even belter than I hoped for." 

At Colorware. we all work hard to make you feel that way and we 
thrive on your appreciation. 



About Max-10 

What the CoCo Community needs is a word 
processor that's rock solid, blindingly fast, 
feels like a Macintosh, makes all the others 
look boring, and does not cost $80 
Max-10 is just that and more It allows on 
screen mixing of graphics and text, large 
headlines, multiple columns and full page 
preview (with graphics). 
We swear that Max-10 will add excitement 
to your word processing, and that's no small 
task! 
PRINTERS SUPPORTED: epsonfx.ux.hx.ix 

ANDCOMPATIBLES DMP 105.108. 110.130, CGPZSO 
IB&W), OK! 18P.92.1S2: STAR NX 10. NX- 1000 

Max-10 Add-ons 

- Max-10 Fonts, 36 super fonts on 2 disks. 
Send for list. Order #C-23 $29.95 

NOTE Ma* 10 and GoGo Max Fonts aien't inteichangablo 

- Spell Checker 50000 word dictionary for 
online spell checking and dictionary lookup. 
Perfect seamless integration with Max-10. 
Order #C-24.. ............. $29.95 

System Requirements 

Max-10 and CoCo Max III Require: any 
CoCo 3: i or more disk drives; joystick or 
mouse: Radio Shack or Colorware Hi-Res 
Pack:a vtdeo or RGB monitor or a TV. 



About CoCo Max III 

Whether you doodle for fun or do graphics 
for a living, CoCo Max will amaze you It's a 
promise. 

Its major features include: Huge picture 
area (2 lull hi- res 320x192 screens). Large 
editing window Zoom mode for detail work 
28 point and click drawing tools. Shrink and 
stretch. Rotation at any angle (1.5* steps). 
512K memory support (all features work 
with 128K too). Undo (Oops) feature to fix 
mistakes. Animation. Special effects Color 
sequencing (8 colors, variable speed) 13 
fonts (more available) Each font has 8 sizes 
and 5 styles for thousands of possible 
combinations Translate program to convert 
most types of pictures CoCo Show "slide 
show" program. Miniload program to help 
use pictures with your software. Color edit- 
ing of patterns. Prints in single or double 
size. Select 1 6 of 64 available colors, all 64 
colors are shown at once for easy selection 
Pull-down menus. 40 paint brush shapes 
Two color lettering. Spray can. Amazing 
"flowbrush". RGB and composite monitor 
support. Colors print in 5 shades of gray 
PRINTERS SUPPORTED: Epson fn.fxmx.lx 

AND COMPATIBLES; STAH/GEMiNI NX 10.NX ■ 1000' 
DMPlUU.iOS.lD6.imi20.13G.2QO_ OKI 82A 102.192 
C6P 220.B&W) 

Color Drivers available. See next column. 



CoCo Max III Add-ons 

- Max Fonts disks. 95 fonts on 4 disks. 
Order #C-73 £49.95 

- Max Edit Create new fonts oi edit existing 
ones. Order #C-16 £19.95 

- Color Printer drivers for NX- 1000 
Rainbow {ffC-2). CGP-220 (#C-1) or 
Okimate 20 {#C-3] each £19.95 

CoCo Max I and II 

- CoCo Max I on tape See previous ads or 

write for info. For CoCo 1 or 2. 

Order #C 7 $59.95 

- CoCo Max H. For all disk CoCos Multi- 
pak or Y Cable required. 4C 85 $69.95 



Digitizers 



Digitize any picture from any video source 
(VCR, camera,.,) for use with CoCo Max ill 
and Max-io. 
OS-69. Requires Multipak. 2 pictures per 

second. Order #C-18 $99,95 

DS-69B Faster: 8 pix/sec. #C-92. S149.95 



Call or Write Now 

™" (203) 348-9436 

■■^ Weekdays 9"5 EST 



Ordering Information: We accept Visa, Mastercard. Checks. andM.O. C.O.D. is $4 extra 
Purchase orders are subject to credit approval. CT residents add 7.5% sales tax. 
Shipping; $4 per order (usually UPS ground). UPS 2nd Day A in $4 extra. Next Day service 
svailaole. Canada: $6 per order (Airmail}. Outside US and Canada: Add 10% o! order total. 
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COLORWARE 

242-W West Avenue 
Darien, CT 06820 
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Neither rain, sleet, snow nor hail 
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ow would you like to learn some 
neat tricks for programming graph- 
ics on the CoCo 3? Letter Carrier 
is a fairly short game that demonstrates 
three techniques very useful to anyone inter- 
ested in graphics programming. It shows 
how you can create graphics invisibly and 
then either make them instantly pop into 
view fully drawn or store them in memory 
for future use. It also shows a way to 
animate letters of the alphabet on the graph- 
ics screen. 

Letter Carrier is an easy-to-play, non- 
violent game that presents a degree of chal- 
lenge. The object of the game is to drop 
letters of the alphabet, arranged in random 
order at the top of the screen, down to the 
little postman who scampers back and forth 
across the bottom of the screen. Letters are 



Jim Bennett lives on the Hudson River in 
upstate New York with his wife and four 
children. He is deeply involved in educa- 
tion and owns E.Z. Friendly Software. 



dropped by pressing the keys on the key- 
board. Points are earned for every letter the 
postman catches. The game is over either 
when the time limit is up or when all the 
letters have been dropped, whichever oc- 
curs first. This game might be used for 
developing keyboard skill, but its primary 
purpose is to demonstrate some special 
graphics techniques that can be used with 
other game scenarios as well as non-game 
programs. 

The program is short, but contains a lot 
of HDRAW commands that must be keyed in 
exactly as listed. The series of letters and 
numbers in these commands can be confus- 
ing and make it very easy to make typing 
errors. So be careful. Also, take the precau- 
tion of saving the program or any portion of 
the program before you try to run it. 

The program has five main parts: The 
first part (lines GO ihmugh 400) creates a 
really eye-catching title. The second part 
{lines 410 through 590) creates four ver- 
sions of the postman used later for anima- 
tion. Part 3 (lines 600 through 660) sets up 



20 



THE RAINBOW 



October 1989 




A-BUS 



m 




NEW: REMOTE A-BUSI Use the new Serial (RS-232) Adapter or 
Processor 10 control any A-BUS system. Cards can be up to 500 ft 
away using phone type cable, or off premises using a modem. Call or 
send for the new A-BUS Catalog which covers all the products. 

Important 

All A-BUS Systems: ♦ Come assembled and tested ♦ Include detailed manuals with schematics 
and programming examples ♦ Can be used with almost any language (BASIC. Pascal. C. 
assembler, etc.) using simple 'IN' and "OUT" commands (PEEK and POKE on some computers) 
* Can grow to 25 cards pn any combination) per adapter ♦ Provide jumper selectable addressing 
on each cud * Require a single low cost unregulated 12V power supply ♦ Are usually shipped 
from stock. (Overnight service is available.) 



Classroom to advanced industrial applications. 
Be a Wizard in your Lab, Factory, College, Home... 

It used to be difficult and costly to do process control, robotics, data 
acquisition, monitoring and sensing with youf computer. Now the 
low-cost A-BUS system makes it easy to do almost any project you 
can imagine. 

Versatility. A-BUS cards handle most interfacing, from on/off 
switching, to reading temperatures, to moving robot arms, to 
counting events, to sensing switches... 

Adaptability. The A-BUS is modular, allowing expansion well 
beyond your needs. It works with almost any computer, or even as a 
remote data station wrUi the new serial adapters. 

Simplicity. You can start using the A-BUS in minutes. It's 
easy to connect, and software is a breeze to write in any language. 

Reliability. Careful design and rugged construction make the 
A-BUS the first choice in specialized I/O. 

An A-BUS system consists of: ■ An A-BUS adapter plugged 
into your computer ■ A cable to connect the adapter to 1 or 2 
A-BUS function cards. Q The same cable will also fit an A-BUS 
Motherboard for expansion to up to 25 cards in any combination. 



_ About Alpha Products 



Founded In 1976 tor the purpose of developing tow cost I/O devices tor personal computers. Alpha 
has grown to serve over 70000 customers In over GO countries. A-BUS users Include many otitis 
Fortune 500 (IBM. Hewlett-Packard. Tandy. Bell labs. GM„.) as well as most major universities. 
A-BUS products are U.S. designed, U.S. &ui h, and serviced worldwide. 
Overseas distributor England: Caidy Science Assoc. Ltd., Merseyside. 051 342 7033. 
Australia: Brumby Technologies Ply, Ltd,, NSW, 7591638. France: Ccserm.Rungis. 46 66 W 75 



Inputs, Outputs, etc. 

Analog Input: 8 analog Inputs. 0-5.1V in 2DmV steps (8 bits). 
0-100V range possible. 7500 conversionsisecond. AD-142:(142 

12 Bit A to D: Analog to digital converter. Input range -4V to 
+4V. Expandable to 100V. On-board amplifier. Resolution tmV. 
Conversion time 130ms. 1 channel. (Expand to s channels with the 
RE-I56card.) AN-1«:il53 

Relay Card: a individually convened industrial relays etch with 
status LEff6(3AaliaOVAC«fltacte.SPST). RE-140>|142 

Reed Relay Card: e reed relays (20mA tt eovrx. SPST). 
individually controlled and latched, with status LEDs.RE-1 58: *1M 

D/A converter: 4 Channel a BU D/A converter with output 
amplifiers and separate adjustable references. CA-1 47: tt « 

24 line TU I/O: Connect 24 Input or output signals (TTL 0/5V 
levels m switches). Variety of modes. (Uses 8255A) M-i*a:$7i 

Digital Input: e optically Isolated inputs, input can be b to 100V 
voltage levels or switch closures. IN-1 4 1 : *6* 

Digital Output Driver: b outputs: 350mA at 12V. Drive relays, 
solenoids, stepper motors, tamps, etc. 5T-143: (78 

Clock With Alarm: Powerful clock/calendar. Battery backup. 
Timing to 1/100 see. Alarm relay, LEO and buraer, CL-144: 198 

Touch Tone Decoder: Each tone is converted Into a number 
which (s slored on the board PH-145: 187 

A-BUS Prototyping card: 4x45' cant m accept up to to 

l.C.s. With power* ground bus. WMS£*16 

Counter Timer: Three 16 bit counters/timers, use seperateiy or 

cascade !or long (48 bit) counts. CT- 150: 1132 

Call oir ^hpficatkx) engineefs to dscuss your proj^t 



Motion Control 

Smart Quad Stepper Controller: The wortd's finest 
On board microprocessor controls four motors simultaneously. 
Uses simple English commands like 'MOVE ARM 10.2 (INCHES) 
LEFT. For each axis, you control coordinates (absolute or rela- 
tive), ramping, speed, units, scale factors, etc, Many inputs for Imit 
switches, etc. On the fly reporting of speed, position... Bull in 
drivers for small motors (suchas M0-I03or 105). 5C-I4fc 1299 
Options: "■ 5 amp/phase power booster tor 1 motor; PD-i23:$49 
"■Remote "teach" keypad for direct motor control: RC-izi:$54 




A large A-BUS system with two Motherboards 
Adapter in the foreground plugs into PGJfJAT type slot 

Stepper Driver Kit: For experimenting with stepper motors. 
Includes 2 UO-103 rectors and a SM43 dual driver PA-181: *» 
Stepper Motors: (4 phase, unipolar) 
MO-103: 2Vi" dfa. vr shaft 7.57step. 1 2V, 5 oi-in torque. 81 5 
ito-lU: 2" die. V»' shaft, iff/step. 5V. so oi- m torque, s*5 
mo-ids: i,7" square ? shaft, 3.757step. 12V, 6 oz-in. sis 



A-BUS Adapters 

*■ Can address 64 ports and control up to 25 A-BUS cards. 
* Require one cable. Motherboard required for more than 2 cards. 
A-BUS Parallel Adapters for: 

IBMPCOT/AT4Compatibles.ita,w*«(«iB>,*t AR-133: «9 

Api^llJI+Jleflvto^MMh 

cwnmodore fMiffT^nir^nriiiiiiirnii 

THS-80 Model 102,200 untfph'Srmntu'. 

Model 100 (Tandy portable) Rup ton** <n mm AR- 

TR5-S0 Model 3.4.4D v-cut mu* i » pin bin fcwd 

TRS-80 Model I ftgiJnb « pin npHJM tu 

TandyCotoC^r^ersr^inuibtMuBtrtcfV-ciWt AR-13S:*49 

A-BUS Cable: Necessary to connect any parallel adapter to 
omA-au$eardMtolMriK4hettx)ud50tiia3tl "-16 
Special Cable for two A-BUS cards 

Serial Adapter: connect A-BUS systems to any RS-232 port. 

AJows up to 500 tt (torn computer to a-bus. 

Serial Node: To connect additional S/W2S7A-BUS systems to 

a single RS232 serial port (max 16 nodes). 
Serial Processor: amo as above plus built in BASIC tor off- 
line monitoring, logging, decision making, etc. 
Use SA-129 or SP-127 with mod ems lor remote data acquisition. 
Motherboard: Holds up to 5 A-BUS cards in sturdy aluminum 
frame with card guides. A sixth connector allows (using cables CA- 
161: $1 2) additional Motherboards to be added. MB-120: t106 

Power Supply: Power pack for up to 4 cards. PS-1»; *12 

Complete Catalog Available 
For Orders and Info call (203) 656-1806 
Weekdays from 9 to 5 EST or FAX 203656-0756 



Ordering Information: We accept visa. Mastercard. Checks, and M.O. C.O.D. is 84 extra. 
Purchase orders are subject to credit approval. CT residents add 7.5% sales tat 
Shipping: $4 per order (usually UPS ground). UPS 2nd Day Air: (4 extra. Next Day service 
available. Canada: $6 per order (Airmail), Outside US and Canada: Add 10% of order total. 
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the game screen with the letters at the top. 
Part 4 (lines 670 through 8 1 0) is the actual 
game routine. The fifth part (lines 820 
through 880) is a subroutine for dropping 
the letters. 

The title shows how graphics cao he cre- 
ated invisibly and then made to pop instan- 
taneously into view. First, I created a black 
screen with a simple statement written across 
the center (Line 70). While the user is read- 
ing this message, the computer produces 
more graphics (lines 80 through 140), How- 
ever, the graphics are invisible because 
they are also done in black. Lines 140 and 
150 erase the intro message and switch the 
colors in PALETTE slots and 15 to reveal 
the drawing for the first time. This gives the 
impression that we switch from one screen 
to another. 

The remaining lines in this routine (160 
through 400) use the "pop into view" trick 
to create a dramatic effect of shapes magi- 
cally "popping" onto the screen one by one. 
What you can 't see is that each shape is first 
drawn and then painted the same color as 
the background. When done, the appropriate 
PALETTE command makes the shape ap- 
pear. Add a little sound effect (Subroutine 
890) and the effect is even more dramatic. 

I'm not going to spoil the visual impact 
of the title design by being specific in my 
description. You'll just have to run the 
program to see exactly what I mean. 

The ruutine (lines 4 1 through 590) that 
draws the figures to be used in animation, 
again uses the trick of working invisibly; 
however, this time the figures are not made 
to pop into view, Instead, they are stored in 
memory with HGET commands. Where are 



the figures drawn, you ask? In the blank 
spaces on either side of the title! 



Letter Carrier 

provides some 

useful ideas for 

programming really 

eye-catching 

graphics on the 

Color Computer 3. 

The tricks shown 

here have a wide 

application in 

writing game 

programs. 



In orderto use HGET, the HBUFT (Line 30) 
must appear at the start of the program. The 
first number following HBU v\ identifies the 
buffer, and the second number identifies 
the amount of memory needed. I confess, 
the method given in the instruction manual 
for calculating the second number seemed 
awkward. I arrived at 1350 (the lowest 



number that works without causing a Func- 
tion Call Error) by a process of trial and 
error. 

The program then scrambles the alpha- 
bet and presents the game screen. With a 
press of the space bar, the game starts. The 
game routine (lines 670 through 810) is 
simply two FOR- next loops that HPUT the 
previously-drawn figures of the postman 
onto the screen. The animation is a little 
rough, but it illustrates what is possible. 
The postman is probably as large a figure as 
you would want to use in animation by the 
HPUT method. You can reduce the flicker- 
ing effect by using smaller figures and a 
smaller rectangle. 

The subroutine, which drops the letters, 
shows how even the letters of the alphabet 
can be animated with CoCo 3 graphics. 
Simply stated, a letter is first printed in 
black and then erased by being printed 
again in the same spot in white. To specify 
the color to HPRI NT, the HC0L0R function is 
used. H P 1 N T checks to see if the postman is 
under the falling letter. 

Letter Carrier provides some useful ideas 
for programming really eye-catching graph- 
ics on the Color Computer 3. The tricks 
shown here have a wide application in writ 
ing game programs. They can also be used 
in any kind of program where you might 
want to add professional-looking, attrac- 
tive graphics. 

(Questions or comments concerning this 
program may be addressed to the author at 
Button and Orchard Sts., Rhinecliff, NY 
12574. Please enclose an SASE when re- 
questing a reply.) Q 




90 107 540 244 

140 ........ 66 660 213 

220 ...... 193 810 35 

330 .......... 5 END 146 

460 191 



The listing: CARRIER 

' COPYRIGHT 1 

1_0 '*********** 

THE LETTE 

JIM BE 
************ 

20 QNBRKGOTO900 
30 HBUFF1.1350: 

3.1350:HBUFF4.1 
) 
"40 CLS:PRINT@32 
? (Y/N)":EXEC44 



989 FALSOFT.INC 

*************** -J. r* 

R CARRIER GAME 

BY 

NNETT, 1989 
***************** 

HBUFF2,1350:HBUFF 
350: RX=RND( -TIMER 

*7+6."RG8 MONITOR 
539:IFINKEY$= I, Y"T 



HEN056ELSE032 

b0 EORX=1T014:PALFTTEX.63:NEXT:C 

LS: PALETTE13 ,0 : PALETTE0 , : PALETT 

E15.0 

50 ' *******CREATE TITLE********* 

70 HSCREEN2;HCLS0:HCOLOR14:HPRIN 

T(2,12)."Now presenting for your 

amusement ..." 
80 HDRAW "BM7,4;S4C15R3BLD4GLBR6 
U3BU2UBR4BD2D4BU2E2RD4RU?F?Rn4RR 
6U5R2FGF2GL2BR7BU2R2U2L2D4R2BR4U 
4D2E2RD4BR4U4BD2BUBDE2RD4BR4BU2R 
2U2L2D4R2BR5U5BR5D5BL2BU3BL4BUBL 
R98D7BL62D5BR5U5BR5DF2D2L2U2E2UL 
2BR13L2GD3FR2BR4R2U2L2D2BR6U3DER 
BR4BUUD5BRBU3BU2UBR5 
90 HDRAW ,, BD4R2U2L2D4R2BR4R?UH2U 
R2BR7BD4U5ER3FD5BL2BU2BL3R4BR4BU 
F3E3BR3BDBRR2U2L2D4R2BR4RBD3BL89 
D6BU6R2FDGBLLBR5Q3R2U4L3BR6D4R2U 
4BR6L2D4R2U4D6L3BR6BU8D6BU3R3D3B 
R3U6BD4E3G2F3BR3BU2R2U2L2D4R2BR4 
BU2R2U2L2D4R2BR4BU4D7BU4R2U3L2BR 
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BEST PUBLIC DOMAIN PROGRAMS ■ 

FROM T&D SUBSCRIPTION SOFTWARE 

T&D SUBSCRIPTION SOFTWARE HAS A CCUMULA TED O VER 1. 000 PUBLIC DOMAIN " 

PROGRAMS FOR THE COLOR COMPUTER. 

WE ARE SELUNG 630 OF THE BEST. JUST THE GOOD STUFF / 





TELECOMMUNICATIONS 1-3 



T1 - Haysaa, Kermit, Mterrn 
T2 - Cobster Terminal Package 
T3 • Mikeyter Terminal Package 




GRAPHICS 1-4 



12 Basic Graphic Programs 
12 Basic Graphic Programs 
9 Coco 3 Graphic Programs 
22 Coco Max Pictures 
22 Cocci Max Pictures 
22 Coco Max Pictures 
15 Coco Max Pictures 
22 .Sin Pictures 
22 .Bin Pictures 
- 11 Large .Bin Pictures 

- 8 Mge Pictures 

- Coco Max 3 Pictures 

- Macpaint Graphic Editor 

- 5 Macintosh Pictures 




UTILITIES 1-8 

■ 12 Programs Each, 1-4 Rsqufm Disk 



GAMES Ml 

- Each Disk/Tape Contains 12 Programs ■ 

aDtietae, Missis, Poker, Tycoon, * 
Chess. Motojump, RWer, Slots, ♦ 
Battship, Golf, Lander, Robots, * 
Abm, Cartel, Subchase, Trek, + 
Blackjack, Laser, Raceway, Utopian, + 
Kings, Navyguns, Pockjame. Subship, + 
Connec14, F-16, Life, Mate land, + 
Chute, Football, Othello, Slither, + 
Civilwar, Flight, Prix, Stock, + —"" i . - ^- 
Cave, Fly, Pedro, Scramble, + Q^~Q' 

Bunkers, Craps, Gunner, Nuheattk, + 



^ 




Ul- 

U2- 
U3- 
U4- 
US- 
U6- 
U7- 
LIS 



Backup3S, Diskzapr, Romcopy, Timer, + 
Customize, Diskfix, Disktest, Muflbnck, + 
Diskaid, Dsklibry, MIdata, Playmac, * 
Macpix, Stal-Log, Una re, Unmaster, * 
Assemblr, Mcbase, Squeerw, Writer, + 
Chr-Ed3, Hqrcolor, Minidos, Updnlist, * 
Head Print With 30 Mini Pictures 
Fig Forth Language With Tutiorial 




^ 



ItHY ALL 5'i 

IHNKN/TAI'EX FOIL 

IIKLY SMSAMi I 





MAIL TO; 

T&D Subscription Software 

* 2490 Mites Standish Drive 
Holland, Michigan 49424 
(616)399-9648 

Caff or write for a FREE catalog ! 



PRICES: 
i- 5 dlsks/tapes....$6.00 each 

6 or more....... $5.00 each 

All 53 disks/tapes $145.00 



Name- 



CIRCLE ISSUES DESIRED 



_„....,.. 




.^■fe.4*k.. 


MasterCard] 


"^^"^^ j 



Address. 
City 



Siate_ 



2p_ 



V. 



. WE SEND 1ST CLASS - NO CHARGE ■ 
■ PERSONAL CHECKS WELCOME • 



Credir Card fi_ 
Expires 



TOTAL AMOUNT $_ 
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Please turn to pages 53 & 1 1 7 for our Subscription Software! 



9L3DF2DL3BR7BUU3 

100 HDRAW "BU2UBRBF3BDR2U2L2D4R2 

BR4RDGBR5BUBRBUU5RF5U5BR4F3G2E5B 

D10BL89D5BR9L4E3U2L2GBR4BUBR5GD2 

F2REU2L3BR8DF2RE2UH2LG2BR10BU2D5 

110 HDRAW "BM254,4:S4C15RFRERFRE 

RFRERFRERFRERFRERFRERFRERFRERFRE 

RFRERFRERF2GDFDGDFDGDFDGDFDGDFDG 

DFDGDFDGDFDGDFDGQFDGDFDG2LHLGLHL 

GLHLGLHLGLHLGLHLGLHLGLHLGLHLGLHL 

GLHLGLHLGH2UEUHUFUHUEUHUEUHUEUHLI 

EUHUEUHUEUHEUHUEUHUEUHEUBF5D33R3 

9U34L39 

120 HPAINT(260,10),15,15:HDRAW"C 

0BF9D4L2GD4FR2 

130 HDRAW "U4D6FDFRFDR3FR3ER2ERU 

EU2EU5BD3REU3L2U2EU2H3LGLHUL4G2L 

2GL2GBD3RE2R3E2F2RE2F5B02BGBLBUB 

LBHL3D4L2BU4BLL4B0BRRBR8RBDBG2BF 

BR3G2LH2L5G2LH3BR7BD4BLRERF28R5F 

3R8BL20BH2BL2BGBLHGLDL6BLBR9RDF5 

BR5RE6BUBL3BG4L5 

140 FORDL-1TO600:NEXTDL:PALETTE1 

4. 63: HPR INK 2 ,12), "Now present In 

g for your amusement..," 

150 PALETTE0.63:PALETTE15.C:' 

REVEAt 1ST PART OF TITLE 

160 HDRAW "BM103,69;S4C1E5H3LHL5 

G5019G6L3G5R4FR5FR4FR2FR3FR3FR3F 

RFRFRFRFRFRFR2FRFRFR2FRFR2BRBFBR 

BF2R3FR4FR4FR5FR7FR8ER6ER5ER2ERE 

R2ERERE4UEU2EU3HUH2L2HL3HL15GL4G 

E3GLGL2GL2GL3GL2GLGLGLGLGLGLGBG4 

BL4L2GLGL4GL5GL4HL2HL2HLH2LH2LHU 

HU2DG4F2RF3RFRFR2FR2 

170 HDRAW "FR9ER5ER4ERER2EBEBR3B 

E2BRBERERERERERERER2ER2ER2ER2ER3 

ER6ER12FRFRF3DZFD2GDG2LGL3DL2DL3 

GL14HL5HL5HL4HL2HL3HBHBL3BHL3HL2 

HL2HLHLHLHL2HL2HLPHL2HLHLHLHLHLH 

L2HL2HL3HL3HL2E8U17E2F2DFG2 

180 HPAINT(103.63).1.1:HPAINT(20 

3.102) .1 ,1:HPAINTC167.102) .1.1 :H 

PAINT(168,102),1.1:HPAINT(170,10 

1).1 1 1:HPAINT(194 ( 116),1,1:HPAIN 

K197,115),1,1:HPAINT(200,114),1 

.1:P=1:MN=0:GOSUB890 

190 HDRAW "BM110,80;S4C2EUE4RERE 

R2FRFDFD2GDG2DGLGLGL4DF3RF2RERER 

E2UBD2BG2G3LG2L2HLH2LH2UHU3L2E3U 

EBR3D2R4EREUEUH3L2GLGD3 

200 HPAINT(123,75),2 1 2;P=2:G0SUB 

890 

210 HDRAW "BM129,80;S4C3R3D12F3R 

3ERERE2UE2G4L2HLHU10R15D11F4R4E4 

UEUEG5H3U9R8E3L10U6G611SU5G7 

220 HPAINT(135,8l) ,3,3 :P=3:GQSUB 

890 

230 HDRAW , 'BM167,85;S4C4RFDFDF3R 

FR2FR2ERERERE2UEG3L2GL2H3LHU2R4E 

REREUEUEU3H3L2GLGLGLG2DG4LG3BE4B 

R6R5E2UH2LGLG3D 



240 HPAINK 171,84 ),4 .4 :P=4:G0SUB 
890 

250 HDRAW "BM190 , 79 ; S4C5E4RE2RFD 

3E3RER9G4L6G3D10G3LU14HL2 

260 HPAINT(199,78).5,5:P-5:G0SUB 

890 

270 HDRAW "BM101 . 121 ; S4C6DGDGDGH 

L3HL3HL3HL2HLG2LG2DGD2GD2FD3FD2F 

DF5RFR7ER2ER2E4DGDGDG20G2LGL2GL5 

HLHL2H6UHU2HU2HU8EUEUEUE5RER5FR3 

FR3FR3FR 

280 HPAINK83.120),6.6:P=6:GOSUB 

890 

290 HDRAW "BM1 18, 132 ; S4C7L9GLG2D 

GD3GD6FD2F2RE6D5FR2ERE4G3L2HU14E 

3BG7U3L4G2D5FDRE4U2 

300 HPAINT(111,135),7,7:P=7:G0SU 

B890 

310 HDRAW "BM119.138:S4C9E4RE2RF 

D3E3RER9G4L6G3D1063LU14HL2 

320 HPAINT(131.135).9.g 

330 HDRAW "BM139 . 138; S4C9E4RE2RF 

D3E3RER9G4L6G3D10G3LU14HL2 

340 HPAINT(155,135),9,9:P-9:GOSU 

B890 

350 HDRAW "BM159. 138 ; S4C10E7RD17 

RERE2G6L3HU12L2BU9BR?R2E5G3L2G3 

360 HPAINT(164,128),10,10:HPAINT 

(164.137),10.10:P-10:GOSUB890 

370 HDRAW "BM171 . 142 : S4C11RFDFDF 

3RFR2FR2ERERERE2UEG3L2GL2H3LHU2R 

4EREREUEUEU3H3L2GLGLGLG2DG4LG3BE 

4BR6R5E2UH2LGLG3D 

380 HPA1NT(173 ,141) . 11 .11 : P=l 1 :G 

OSUB890 

390 HDRAW "BM194, 135;54C12E2R2FD 

17E5U9E2R2ER4FR2FR2ERERE3U3H3G3F 

2DG2H2L3HL5GLG2LU2HL4G5 

400 HPAINK198.132),12,12:P=12:G 

OSUB890 

410 'DRAW 4 MEN FOR ANIMATION 

420 POKE65497.0 

430 PALETTE13,63:PALETTE14,63 

440 HDRAW "BM35 .97 ;S4C8R10G3F2L4 

HL5U4BD4D5R8U2R2HNHBL4LBF3F5E5F2 

E2H2GH2E3F6G3H2BH2GBF2G6L3D5BH10 

BU368D2F4E2F2G2H2BE2H2E4D9BU7RER 

EU3HLHL22012FDF2RFR2FR5ER2E2 

450 HDRAW "BM34 r 121;S4C8D8L8D5L2 

U5RBDBRBD2R13U9D16R6U2LNL4U20 

460 HPAINK20.110).13.8:HPAINT£3 

2,116),13,8:HPAINT(36.98),14,8:H 

PA INK 32 ,110). 14, 8: HPAINK 32 .110 

).14.8:HPAINT(40.113),14 ( 8 

470 HGEK5 t 95)-(63,139),l 

480 HDRAW "BM35,147;S4C8R10G3F2L 

4HL5U4BD4D5R8U2R2HNHBL4LBF3F5E5F 

2E2H2GH2E3F6G3H2BH2GBF2G6L3D5BH1 

0BU3G8D2F4E2F2G2H2BE2H2E4D9BU/RE 

REU3HLHL22D12FDF2RFR2FR5ER2E2 

490 HDRAW "BM44.167 : S4CBD3NL3R8F 

5DG2LF2E5HLG4H4L14UH3D3BF2BR4D4G 
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6H2G2F4E2H5E4U3HU2 

500 HPAINT(20,160),13.8:HPAINT(3 

2. 166 3.13.8: HPAI NT (40. 148). 14, 8: 

HPAI NT (32, 160), 14, 8; HPAI NT (40, 16 

0>,14,8:HPAINT(36, 178), 14,8 

510 HGET(5,145)-(63,189),2 

520 HDRAW "BM285,97;S4C8L10F3G2R 

4ER5U4BD4D5L8U2L2ENEBR4RBG3G5H5G 

2H2E2FE2H3G6F3E2BE2FBG2F6R3D5BE1 

0BU3F8D2G4H2G2F2E2BH2E2H4D9BU7LH 

LHU3ERER22D12GDG2LGL2GL5HL2H2 

530 HDRAW "BM286 , 121 ; S4C8D8R8D5R 

2U5LBDBLBD2L13U9D16L6U2RNR4U20 

540 HPAINT(298.110).13,8:HPAINT( 

287 , 116 ). 13, 8: HPAI NT( 283, 98), 14, 

8:HPAINT(279,110) , 14 ,8: HPAIMT( 28 

7. 110). 14, 8 

550 HGET(258,95)-(316,139),3 

560 HDRAW "BM285 , 147 ;S4C8L10F3G2 

R4ER5U4BD4D5L8U2L2ENEBR4RBG3G5H5 

G2H2E2FE2H3G6F3E2BE2FBG2F6R3D5BE 

10BU3F8D2G4H2G2F2E2BH2E2H4D9BU7L 

HLHU3ERER22D12GDG2LGL2GL5HL2H2 

570 HDRAW "BM276,167,S4C8D3NR3L8 

G5DF2RG2H5ERF4E4R14UE3D3BG2BL4D4 

F6E2F2G4H2E5H4U3EU2 

580 HPAI NT( 298, 160), 13, 8: HPAI NT ( 

287, 166 ), 13, 8: HPAI NTC 279, 148), 14 

,8:HPAINT(279,160),14,8:HPAINT(2 

87, 160), 14, 8: HPAI NT (283 ,178). 14, 

8 


750 FORH=260TOlSTEP-8 

760 HPUT(H.147)-(H+58,191),N,PSE 

T: IFN=3THENN=4ELSEIFN=4THENN=3 

770 GOSUB820 

780 NEXT 

790 IFLEN(Ut)=26THEN810 

800 NEXTNT 

810 HCLS14:HCOLOR0:HPRINT(11,10) 

,"***GAME OVER***":HPRINT(9 t ll) , 

"FINAL SCORE IS"+STR$( PS) : HPRINT 

C5, 12), "PRESS ANY KEY TO PLAY AG 

A IN" :EXEC44539:SOUND90,1:I$=INKE 

Y$:GOTO50 

820 '*****DROP THE LETTERS****** 

830 I$="":It-INKEY$:IFI$=""THEN8 

80 

840 IFI$<"A"ORI$>"Z"THEN880 

850 IFINSTRCU$.It)=0THENU$=U$+r$ 

ELSE830 

860 PL=INSTR(NA$.I$)+5:FORL=0TO1 

8:HC0LOR8:HPRINT(PL,L),IJ:HC0LOR 

0:HPRINT(PL,L),I$:NEXT 

870 IFHPOINT((PL*8) + 1,164)O0THE 

NPS-PS+100 : FORS=1T05 : SOUND50*S , 1 

:NEXTS 

880 RETURN 

890 PALETTEP.RND(47) :PLAY"03V31" 

: MN-MN+1 : F0RX=1T06 : PLAY"T100; "+S 

TR$(MN)+":V-;V-;V-":NEXTX: RETURN 

900 POKE65496,0:HSCREEN0:RGB:ENO <«\ 


590 HGET(258.145)-(316,189),4 

600 -**** SET UP GAME SCREEN***** 

610 POKE65497,0:U$="":PS=0 
620 At-"ABCDEFGHIJKLMNOPQRSTUVWX 
YZ" 

630 NA$="":F0RL=1T026 
640 L$=MID$(A$,RND(26),1):IFINST 
R(NA$.L$)=0THENNA$=NA$+L$ ELSE64 


650 NEXTL:PLAY"V7-:F0RMN=1T012:F 
ORNN=1TO2:PLAY"T20;O2;"+STR$<MN) 
+"V+" :NEXTNN > MN:HCLS0; PALETTES. 6 
3: PALETTES, 0:PALETTE13. 38 :PALETT 
E14,11:HCOLOR8:HPRINT(6.0),NA$ 
660 POKE65496,0:HPRINT(8,10) ,"TH 
ESE ARE YOUR LETTERS" : HPR1NT (/, 1 
1) ."PRESS SPACE BAR TO START" :EX 
EC44539:HCOLOR0:HPRINT(8,10),"TH 
ESE ARE YOUR LETTERS" : HPRINT( 7 , 1 
1), "PRESS SPACE BAR TO START" 
670 '*******play THE GAME******* 
680 F0RNT=1TG4:N=1 
690 FORH=1TO260STEP8 
700 POKE65497,0:HPUT(H,147)-(H+5 
8,191),N,PSET:POKE65496.0:FORDL= 
1TO10:NEXTDL:IFN=1THENN=2ELSEIFN 
=2THENN=1 
710 GOSUB820 
720 NEXT 
. 730 IFLEN(U$)=26THEN810 
740 N=3 






VIP Software for the CoCo 3 

VIP Writer 111 includes VIP Speller $79.95 

VIP Calc III $69 95 


VIP Database 111 $69 95 


VIP Library /WDCE $179 95 


Upgrade Writer to Writer III $49 95 


Upgrade Calc to Calc III ...$29 95 


Upgrade Database to Database III.. ,,$39.95 

Upgrade Library to Library /WDCE. ...$99.95 

VIP Software for ALL CoCos 

VIP Writer includes VIP Speller* $69 95 
VIP Calc $59 95 


VIP Database ..........$49 95 


VIP Speller....... $34,95 

VIP Disk-Zap , $29 95 

VIP Integrated Library $149 95 


Upgrade any VIP pgm to VIP Library $99.95 


Upgrading? Send disk only + amount + $3 S/H 
See our July ads for more information 

VISA 1-800-322-9873 M/C 

SD Enterprises info line (805) 566-1317 

P. O. Box 621 Carpinteria Ca 93013 

VIP Library orders add $4 S/H USA, $5 Canada & $1 Foreign 
Other orders add $3 S/H in USA, M Canada, $6 Foreign. COD orders add an 
additional $2,75. Checks allow 3 weeks for delivery. Calif, res. add 6% tax. 
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Converting artwork into BASIC code 



n 



Michael J. Vandall 




he most time-consuming part of 
programming graphics using BA- 
SIC is converting artwork on the 
graphics screen worksheet into BA- 
SIC code and then entering the 
code. Graphics Programmer speeds up this 
process considerably by converting art- 
work drawn on the screen into basic code. 
Hie program runs much like a graphics 
editor. But instead of the graphics screen 
memory being saved, a basic subroutine, 
around which a basic program can be 
written, is created on disk. 
Graphics Programmer 
uses commands almost 
identical to those used to 
program graphics in BA- 
SIC. The commands sup- 
ported are line, draw, 
ellipse (also used for 
circles), paint, color, 

and TEXT. GRID, 

COORDINATE, REDRAW, 

erase last and help functions, 

available through the editor, do not affect 

the Basic subroutine created. 

Type in the program in Listing I and 



Michael Vandall. a mechanical engineer- 
ing student at the University of Washing- 
ton, learned to program in BASIC on the 
CoCo I when both he and the CoCo were 
very young. Now he also programs in Pascal 
and FORTRAN, and avf ay from the computer 
he likes to ski and motorcycle. 



save it. Due to the shortage of space in some 
lines, be sure to type in the program exactly 
as listed, A default palette file must be 
created the first time the program is run. 
When a prompt for a new or old file-ap- 
pears, press N for new File. Next enter the 
filename (up to eight characters). The screen 
clears and a prompt reading "New Palette 
(Y/N)" appears. Press Y for yes. Since the 
editor uses the high-resolution Screen 2, 
the palette holds 15 colors. The program 
then asks for a color code number for each 
of the 1 5 palette slots. The 16th slot is used 
for the background color of the editor screen. 
A sample palette is shown in Figure 1 on 
the following page. These eight colors are 
a good starting palette. Complete the pal- 
ette's remaining seven slots with colors of 
your choice. 

After enteri ng a color code for each slot, 
the "Save New Palette? (Y/N)" prompt 
appears. Press Y for yes. A default palette 
file is saved on disk as palette, dbl. This 
file can be used as a default palette any time 
the program is run, or a new palette can be 
created by repeating the process again, A 
palette can be created for an individual 
program by following the steps above, but 
press N for no when asked to "Save New 
Palette? (Y/N)." 

Once the palette has been set up, the 
graphics screen appears and the color prompt 
is displayed, Using the arrow keys, posi- 
tion the cursor over the desired color and 
press C. The color chosen appears in the 
upper right comer. 

The editor is now ready for use. The 
commands are well supported with prompts 
and require most of the same variables used 
by the BASIC commands. Cursor movement 
is controlled with the arrow keys. The 
cursor speed can be increased by pressing 
an arrow key while pressing the CLEAR key. 
For a quick review of the commands and 
functions available, press the question-mark 
key ('?>. (See Figure 2, following page.) 

lime: First mark the starting point for 
the line by pressing S. Then mark the end 
point by pressing E. Enter the appropriate 
line option (None, B or BF) by pressing the 
corresponding number. If the B or BF op- 
tions are to be used, the start and end points 
of the line should be the upper left and 
lower right comers of the box. 

ellipse; Mark the center point by press- 
ing X. then move the cursor right or left and 
mark the radius by pressing R. Next enter 
the ellipse color, height/width ratio, and the 
start and end points. At this point the ellipse 
appears. 

draw: Mark the starting point by press 
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ing M. Next enter the direction you want to 
travel by pressing the appropriate letter, 
then enter the number of pixels to move in 
that direction. Press Q to exit. 




color: Place the cursor over the desired 
color and press C. 

paint: Mark the edge of the area to be 
painted by placing the center of the cursor 
exactly on the edge of the area so that the 
color where the painting is to stop appears 
in the center of the cursor. Then press E. 
Next mark the interior of the area to be 
painted by moving the cursor somewhere 
inside the area and press L Enter the num- 
ber of the color to be painted, and the area 
is filled. Note: As in BASIC, the area to be 
painted must have a complete border of the 
same color. 

text: Move the cursor to the desired 
location and mark the starting point for the 
text by pressing P. Enter the text desired, 
press ENTER, and the text appears. You can 
use alternate fonts created with Eric Wolf's 
Font Master (October '88. Page 4 1 ). 

grid: Key F2 toggles on and off a grid of 
dots spaced 10 dots apart. 

coordinates: a\v cursor coordinates can 
be displayed in the upper right corner of the 
screen. Toggle nn and off with CTRL. 

erase last: Erases last command 
completed by pressing Fl, 

redraw: Redraws the entire display as 
siwed on disk by pressing ALT. 

help: Reviews commands and functions 
on the top of the screen by pressing the 
question-mark key (?). 

quit: Quits and saves the drawing in 
memory to disk. Enter a Y or an N at the 
"Are You Sure (Y/N)" prompt accordingly. 
If Y is chosen, the listing of the program 
created is displayed. 

exit: Pressing the asterisk key (*} exits 
the editor without saving the drawing. For 
a complete demonstration of the program 
in action, type in the listing for demo and 
save it in the ASCII format (save 



"demo.bas", a). Run Graphics Program- 
mer and enter an O lor old file, then enter 
demo for the program name and watch it 
being drawn on the screen. You can now 
add to the demo drawing and, by pressing 
the asterisk key. exit the editor without 
updating the disk file. 

Hints and Tips 

Redraw the screen after turning off the 
grid. This refills any holes left behind from 
the grid and keeps the "paint" from leaking 
out around areas you paint after removing 
the grid. It may also be necessary to redraw 
the screen after using the brase last 
function on a paint command. If the paint 
does not disappear after you use the erase 
last function, press the redraw key. The 
drawing should be redrawn without the 
erased paint. This usually occurs when the 
paint color is the same as the edge color. 
The erase last function has no effect if the 
redraw function is the last function used. 

The upper part of the screen is fre- 
quently cleared to display the status line. 
Although part of the drawing may be erased 
on the screen, the final disk file is not 
affected. 

A directory can be displayed during 
startup by entering a 7 for the program 
name. 

The editor can be aborted without sav- 
ing the basic subroutine by pressing the * 
key. This should only be used when you 
don't want your drawing saved or updated. 

A command may be aborted at any time 
by pressing the BREAK key. This allows 
you to escape from an uncompleted com 
mand without affecting the disk file. 

All command inputs must be in capital 
letters. 

Due to the use of tnkfys and tnptit 
commands throughout the program, the 
enter key may need to be pressed after 
some user inputs. If nothing happens after 
answering a prompt with a key press, try 
pressing enter. 



These commands are not supported: 



• Color option for hline 

• Background color for hcolor 

• Angle, blank move, no update 
and scale options for hdraw 

• HSET 

• HCLS 



If a CMP monitor is to be used, change 
the palette rgs command in lines 10 and 

380 to PALETTE CMP. 

Disk File 

The Basic subroutine saved on disk is in 
ASCII format. The subroutine begins with 
Line 100, which sets up the palette. Line 
1 10 contains the screen mode and color, 
The last line in the subroutine keeps the 
screen displayed until you press BREAK. 

Any old drawings loaded must he in 
ASCII and must be free of any commands 
other than those supported by the editor. 
The program must have line numbers in 
increments of 10 and begin at 100. Lines 
100 through 120 must be identical in for- 
mat to those created by the editor. 

Graphics Programmer creates a total of 
four disk files used by the editor: 
palette. dbl, the default palette file: 
filename .has, the BASIC subroutine created; 
filename. dm, the data file used during 
redraw and space removing routines (de- 
leted after use); and el.dat, the erase 
last data file (deleted after use). Although 
the last two files are normally deleted after 
use automatically, they may appear in the 
disk directory if the editor has been aborted 
by pressing * or the Reset button, If this 
happens, these files should be killed to 
reserve disk space. 

(Questions and comments concerning 
this program may he directed to the author 
at 20985 Cindy Court. Poidsbo, WA 98370, 
Please enclose an SASE when requesting a 
reply.) □ 











Commands 


Functions 




LINE 


(press L> 


grid (press 12) 




LtPSE 


(press E) 


coordinates (press CTRL) 




DRAW 


(press D) 


ERASE LAST t press Fl) 






(press C) 


REDRAW (press ALII 




PA] 


(press P) 


help (press?) 




TEXT 


(press T) 


quit (press Q) 




EXIT 


(press *) 






Figure 2: Commands and Functions Available in Graphics Programmer 
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by Steve Bjork 

A hostile space fortress has been spotted at the outer 
edge of our galaxy. Destroy this menacing battle platform 
by navigating your spacecraft with the utmost skill to scale 
walls; dodge force fields; blow up fuel tanks; dog fight 
defense ships; evade comets and ultimately disable the 
powerful robot overlord! 

Six years after this arcade hit was first released on the 
Color Computer 1, world renown software author Steve 
Bjork brings one of his most popular and most requested 
games to the Color Computer 3 market. 

Z'89 puts your flying skills to the ultimate test in this 
100% M/L game featuring 5 Mega -Bytes of Super -Res 
Graphics and Digital sound! At last, a program that 
actually out shines the original arcade version!!! Requires 
a Color Computer 3 128K disk system. 

REG. $29.95 Introductory Special $24.95! 



DQNUT 

DILEMMA 

by Nicholas Marentes 

Angry Angelo has raided Antonio's Donut Factory 
sending the entire complex amuck! Donuts have come 
alive and are jumping around in wild frenzies. Machines 
have gone out of control throwing cooking fat, dough and 
icing sugar everywhere! You must help poor Antonio climb 
ladders, Jump platforms and ride elevators to reach the 
top floor and shut down the factory's power generator 
which will restore law and order. 

Disk. , .$19.95 



WE NOW ACCEPT. . . 



■esS 



DISCOVER 



ALL PROGRAMS REQUIRE A COLOR COMPUTER 3 DISK OR TAPE SYSTEM (unless indicated). 

Personal checks, money orders, and American C.O.D, orders accepted. Include $3,00 for S/H, $2.50 extra 
tore o D. orders. (Cai. res. add 8,5 % tax ) 

ATTENTION PROGRAMMERS: Game Point Software is looking for talented writers. Top royalties guaranteed. 




iJ^'feythymi 

• bv Nickolas Marantes 



by Nicholas Marentes 
Help Rupert infiltrate ' 'Music Box Records ' ' and collect all of his 
t^ stolen notes which are scattered 
throughout the complex. Ride 
the crazy elevators and beware 
of the security robots on patrol. 

This strategy arcade game 
features 17 different, 16 color 
graphic screens and some of 
the hottest digitized percussion 
music and vocals you've ever 
heard. Disk or Tape. . .$24.95 





Based on a popular arcade game which we can't mention (But 
sounds like "Art Gannoyed"). 
BASH challenges you to clear the 
screen by "BASHING" your 
ball through multiple brick lay- 
ers. Of course you'll have help 
getting through this 20 level 
game by activating options like. 
Slow Ball. Expanded Paddle, 
Multi-Ball, and wore! 

$24.95 






by Nickolas Marentes 

Enemy alien creatures have 
been identified entering our so- 
lar sysiem. their destination: our 
home planet! Their goal: the 
total annihilation of our race. 
They must not be allowed to 
tsidl 

An action arcade game teatur- 
ing_ high quality IB color gra- 
phics and sound effects. $24 . 36 
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RESCUE by Steve Bjork 

A terrible mine disaster has just occured and it will be up to you 
and your talents to enter the r-- 
mine, jump the pits, avoid Itie 
spikes, fight off the hats and 
other creepy crawlers and get 
air to the needy victims. Mine 
rescue features over 2 mega- 
bytes of arcade-style graphics, 
real time music and multiple 
mine levels. Hours of tun! 
$24.95 




marp riimhin giH 

hv Steve Rinrk ~» ^W 



by Stave Bjork 
$24,95 (Extra Glasses $2.95) 
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P.O Box 6907, Burbank, CA 91 51 0-6907 
(818) 843-3405 • BBS: (818) 772-8890 



Editors Note: RAINBOW ON TAPE/DISK users 
will need to save both listings together on a 
separate disk before using Graphics Program- 
mer. Keep m mind, while DEMO is saved on this 
month's tape and disk in binary format, it will 
need to he saved in ASCII format before using. 




80 52 

200 122 

380 ..........19 

450 ...46 

580 183 

670 149 

800 75 

860 .....72 

950 32 

1080 221 



1200 
1330 
1470 
1640 
1760 
1890 
2020 
2130 
END.. 



204 
188 
186 
212 
235 
.. 57 
.. 48 
233 
246 



Listing 1: graphpro 

'COPYRIGHT 198 9 FAL SOFT, INC 

1 ' Graphics Pro. 

2 ' By Michael J. Vandall 

3 ' 20985 Cindy Ct . 

4 ' Poulsbo, WA 98370 

5 ' December 1986 

6 ' 

7 ■ 

8 ' * Initialization * 

9 ' 

10 GOSUB 2230:HSCREEN 2 : HBUFF 1, 
2416: HBUFF 2, 7 99: HBUFF 3,44:HGET 

(0,0) - (300, 15) , 1 :HSCREEN0:PALETT 
E RGB: CLEAR 2000: ON BRK GOTO 440 
20 LN=120:V=96:H=160:Z=1;DIMPL(1 
5) :WIDTH 40 

30 INPUT"NEW DRAWING OR OLD (N/O 
}";NS: INPUT "PROGRAM NAME ";NN$:I 
F N$="Q" AND NN$<>"?" THEN NN$-N 
N$+".BAS":FG=liGQTO 70:ELSE IF N 
N$ = "?" THEN DIR:PRINT:GOT0 30 
4 NN$=LEFT$ ( NN$ , 8 ) + " , DAT " : OPEN 

"■o n f§i,m$ 

50 GOSUB 1520 

60 PRINT* 1, "110HSCREEN2: HCLS0" 

70 HSCREEN2:HCLS0:IF FG-1 THEN G 

OSUB 1730:GOSUB 630:ELSE GOSUB 6 

30 

77 ' 

78 ' * Main Inkey$ * 

79 ' 

80 HGET(0,V-2)-(319,V+2) ,2 

90 HDRAW"BM"+STR$ (INT(H) )+", "+ST 
R$ (INT(V) )+";C" + STR$ (Z) +"ND2NU2N 
L2NR2" 

100 C$=INKEY$:HPUT{0,V-2)-(319 f V 
* +2) , 2:VC=V:HC=H 
110 IF PEEK (341) =247 THEN V=V-1 



120 IF PEEK (339) =191 AND PEEK (34 

1)=247 THEN V=V-4 

130 IF PEEK (34 2) =2 4 7 THEN V=V+1 

140 IF PEEK (339) =191 AND PEEK (34 

2) =2 4 7 THEN V=V+4 

150 IF PEEK (343) -247 THEN H=H-1 

160 IF PEEK (339) =191 AND PEEK (34 

3) -247 THEN H=H-4 

170 IF PEEK (344) =247 THEN H-H+l 

180 IF PEEK (339) =191 AND PEEK (34 

4) =24 7 THEN H=H+4 

190 GOSUB 1080 

197 ' 

198 ■ * Cursor Subroutines * 

199 ' 

200 IF C$="" THEN 80 ELSE IF C$ 
="*" THEN END 

210 IF C$ = ,, S ,, AND FLG=1 THEN FLG 

=0: RETURN 

220 IF C$="F" AND FLG=2 THEN FLG 

=0: RETURN 

230 IF C$="X" AND FLG=3 THEN FLG 

=0: RETURN 

240 IF C$="E" AND FLG=4 THEN FLG 

=0: RETURN 

250 IF CS = '*I" AND FLG=5 THEN FLG 

=0: RETURN 

2 60 IF C$="M" AND FLG=6 THEN FLG 
=0: RETURN 

270 IF C$= r, M" AND FLG=7 THEN FLG 
=0: RETURN 

280 IF ASC(C$)=4 THEN GOSUB 1640 
:ELSE IF ASC(C$)=189 AND TG<>1 T 
HEN TG=l:GOSUB 1080: ELSE IF ASC ( 
C$)-189 AND TG=1 THEN TG=0: GOSUB 

1130 
290 IF ASC(CS)=64 THEN RS=1:HPRI 
NT (1,0) , "REDRAW": PRINT #1,STR$ (L 
N)+"G0TO"+STR$ (LN) : CLOSE: GOSUB 1 
370 :RS=0: GOSUB 1130:GOSUB 1140 
300 IF ASC (C$) =103 THEN HPRINT(1 
,0), "ERASE LAST" : GOSUB 1150:GOSU 
B 1130 

310 IF C$="L" THEN 400 
320 IF C$="?" THEN GOSUB 1710 
330 IF C$="C" THEN GOSUB 630 
340 IF C$="E" THEN 450 
350 IF C$="P r ' THEN 580 
360 IF C$="D" THEN 700 
370 IF C$="T" THEN 930 
380 IF C$="Q" THEN HPRINT £1,0)," 
REALLY WANT TO QUIT? (Y/N) " : INPU 
T Q$:IF Q$<>"Y" THEN GOSUB 1130: 
GOTO 80 ELSE GOSUB1130 : HPRINT < 1 , 
0) , "QUIT" :PRTNT#1,STR$ (LN)+"GOTO 
"+STR$(LN) : CLOSE #1 :HSCREEN0:CLS 
: PALETTE RGB : GOTO 1370 

3 90 GOTO 80 
397 ' 

3 98 ' * Line Command * 

399 ' 

400 HPRINT ( 1, 0) , "LINE: Mark Star 
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t <S>" :FLG=1:G0SUB 80: HSET {H, V, 6 

) :V1-V:H1-H:G0SUB 1130 : HPRINT (1, 

0) , "LINE..: Mark Finish <F>":FLG=2 

; GOSUB 80: GOSUB 1130: HPRINT (1, 0) 

/'LINE: Box Option l.None, 2.B, 

3.RF" 

410 H2=H:V2=V:A$=IKKEY$:IF AS-"" 

THEN410ELSE IFINSTR { "12 3" , A$) =0 

THEN 4 10: ELSE IF A$="l" THEN 0$= 

"PSET" :HLINE(H1,V1) - <H2,V2) , PSET 

:ELSE IF A$="2" THEN 0$="PSET,B" 

:HLINE(H1, VI)- <H2 f V2) , PSET, B: ELS 

E IF A$="3" THEN 0$="PSET, BF" : HL 

INE(Hl,Vl) - (H2,V2) , PSET,B 

420 E1=H1:E2=V1:E3=H2;E4=V2:IF A 

$ = "1" THEN E$ = "L" :ELSE IF A$ = "2" 

THEN E$="LB" :ELSE IF A$="3" THE 

N E$="LF" 

430 PRINT#1,STR$(LN) +"HLINE("+ST 

R$ (Hl)+", "+STR$(Vl)+")-("+STR$ (H 

2) +", " + STRS (V2)+") , "+O$:LN=LN + 10 

440 GOSUB 1130:FLG=0:GOTO 80 
i 



447 
44B 
449 
4 50 



Ellipse Command 



Mark C 



HPRINT(1,0) r "ELLIPSE: 
enter <X> " : FLG=3 : B=TG : TG=0 : GOSUB 

80:HSET (H,V, 6) : H1=H : V1=V:G0SUB 
1 1 30 : HPRINT (1,0), "ELLIPSE : Mark 



B-H-l 

PEEK ( 3 

H=H + 1 
PEEK (3 

:FOR X=l 



HR 



Radius <R>" 

460 IF PEEK (343) =247 THEN 

ELSE IF PEEK (339) =191 AND 

43)=247 THEN H-H-Si 

470 IF PEEK(344)=247 THEN 

ELSE IF PEEK (339) =191 AND 

44)^247 THEN H=H+5 

480 GOSUB 1080:HSET(H,V) 

TO 5 :NEXT:HRESET (H, V) 
490 C$=INKEY$:IF C$o"R" THEN 
ESET(H1,V1) :GOTO 4 60 
500 IF H>H1 THEN R=H-H1 ELSE R=H 
1-H:HSET(H, V, 6) 

510 GOSUB 1130:HPRINT(1,0) , "ELLI 
PSE: Color ( 1-15) ": INPUT K$:HPRI 
NT (23, 0) ,K$: IF VAL(K$)<1 OR VAL ( 
K$)>15 THEN 510 ELSE K=VAL(K$) 
520 GOSUB 1130 : HPRINT ( 1, 0) ,"ELLI 
PSE: Height/Width Ratio (0-255)" 
: INPUT H$:HPRINT(37,0) ,H$:IF VAL 
(H$)>255 THEN 520 ELSE H=VAL(H$) 
530 GOSUB 11 30: HPRINT (1,0) , "ELLI 
PSE: Start (0-1)": INPUT S$:HPRIN 
T (22,0) ,S$:IF VAL(S$)>1 THEN 530 

ELSE S=VAL(S$) 
540 GOSUB 1130:HPRINT (1,0) , "ELLI 
PSE: End (0-1)": INPUT E$:HPRINT( 
20,0>,E$:IF VAL(E$)>1 THEN 540 E 
LSE E=VAI. (E$) 



Our acclaimed ADOS-3 has given birth! 

"EXTENDED* ADOS-3 

* Built-in RAM disk * Point-and-pick file select menu * 

Not a new version of ADOS-3. but a new product that shares space with ADOS-3 in a 16K EPROM. Arrow-key selection of files 
to execute, COPY, KILL or SCAN, The BACKUP command is doubled in speed forfull disks, proportionately fasterfor partly full 
disks. (BACKUPS to or from the RAMdisk typically take 5 to 20 sec.) • BACKUP-with-format • Wild-card COPY and KILL, with 
optional prompting tor individual files • Date (or date/time with hardware clock) displayed for files in the directory, printed on 
LLISTings • DATES function ■ Key repeat ■ Block move/copy of BASIC program lines ■ Text screen printer dump • Auto- 
reboot of a BASIC program or the DOS command • Parallel printing • Read/write/format 35/40 tracks on SO-track drives • 
Supports 3 double-sided drives plus 2 RAMdrives • Allows different numbers of tracks on different drives • Shares the 
original's excellent compatibility with commercial software. For 128K CoCo 3 with ADOS-3 (RAMdisk use requires 512K). 
Includes information on having an EPROM burned (cost is $15) after configuring Extended ADOS-3, Disk. $39.95. Extended 
ADOS-3 plus ADOS-3. $64.95. Driver for Disto real-time clock, $5. Adapter for controllers lacking 28-pin socket. $10. 
Smart watch real-time clock (Tandy 25-1033 equiv,), $35 (Driver included; for 28-pin socketed controllers only). 

"The CoCo 3 without extended ADOS 3 is like a grounded plane - why not let your CoCo soar... " Rainbow, October '89 

ADOS-3 (reviewed July 1987) 

Customize default startup message, colors, screen width, baud rate, step rates, processor speed, number of tracks (35, 40, or 
80). Disk I/O and printing are reliable at double CPU speed. Extra commands such as FAST. SLOW, AUTO. RUNfvl. SCAN, CAT. 
PRT ON/OFF. Keystroke macros; arrow-key scroll through BASIC programs, edit/repeat of last command; auto-edit of error 
line, ML monitor, lots more. Usable as a disk utility or in EPROM 128K Coco 3. EPROM-burning (cost is $15-20) information 
provided, Disk, $34.95. 

ADOS for COCO 1 and 2 (reviewed June 1987) Disk. $27.95. ADOS plus ADOS-3, $50- 



SPECTROSYSTEMS 





PLEASE ADD S2 SHIPPING 



NO DELAY ON PERSONAL CHECKS 



11111 N. Kendall Drive 

Suite A108 
Miami, FL 33176 
(305) 274-3899 



WE CANNOT ACCEPT CREDIT CARDS 
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550 HCIRCLE(H1,V1) , R,K,H,S,E:E1 = 

Hl:E2=Vl:E3=R:E4=H:E5=S:E6=E:E$= 

"E" 

560 PRINT#1,STR$ (LN) +"HCIRCLE (" + 

STR$ (HI) + ", " i-STRS (VI) + ") , "R", "K" 

, "H", "S", "E 

570 LN=LN+10:H=H1:V=V1:TG=B:GOSU 

B 11 30: GOTO 80 

577 ' 

578 ' * Paint Command * 

579 « 

580 HPRINT (1,0) , "PAINT: Mark Edg 
e <E>":FLG=4 : GOSUB 80:H1=H : V1=V: 
E-HPOINT(H,V) :GOSUB1130 

5 90 HPRINT (1,0) , "PAINT: Mark Int 

erior <I>" : FLG=5 :GOSUB 80:H2=H:V 

2=V:HSET(H1,V1,E) : GOSUB 1130:E3= 

HPOINT(H2, V2) 

S00 HPRINT (1,0) , "PAINT: Paint Co 

lor (1-15) ": INPUT K$: HPRINT (27,0 

),K$:IF VAL(KS)<1 OR VAL(K$)>15 

THEN 600 ELSE K=VAL(K$) 

610 HPAINT(H2,V2) ,K,E:E1=H2:E2=V 

2*E4=E:E$="P" 

S20 PRINT#1, STR$ (LN) +"HPAINT ( "H2 

", "V2") , "K", "E:LN=LN+10: GOSUB 11 

30: GOTO 80 

627 ' 

628 1 * Color Command * 

629 ' 

630 HPRINT (0,0) , "COLOR: Select C 
n. <n>" 

640 FOR X-169 TO 309 STEP 10:HCO 

LOR X/10~15.9:HLINE (X, 0) - (X+10, 1 

0) , PSET, BF: NEXT: HC=174 

650 HGET(0,3)-(319,7) , 2:HDRAW"BM 

"+STR$(INT (HC) ) +",5C0ND2NU2NL2NR 

2":C$=INKEY$:HPUT (0,3)-(3l9,7),2 

660 IF PEEK(343)=247 AND HC>174 

THEN HC=HC-10 

670 IF PEEK (344) -247 AND HC<314 

THEN HC=HC+10 

680 IF C$<>"C" THEN 650 ELSE Z= ( 

HC/10-16.4) :HCOLORZ: GOSUB 1140:1 

F FLG=8 THEN FLG=0: RETURN 

690 PRINT#1, STR$ (LN) +"HCOLOR"+ST 

R$(Z) :LN=LN4 10: GOSUB 1130:RETURN 

697 ' 

698 ' * Draw Command * 

699 ' 

700 HPRINT (1,0) , "DRAW: Mark Star 
t <M>":FLG=6: GOSUB 80: HSET (H, V, 6 
) :H1=H:VI=V 

710 T$=STR$ (LN) +"HDRAW"+CHR$ (34) 
+"BM"+RIGHT$ (STRS (Hi) ,LEN(STR$ (H 
1} ) -1)+", "+RIGHT$ (STRS (VI) ,LEN(3 
TR? (VI) )-l) 

720 GOSUB1 130: HPRINT (1,0) , "DRAW: 
Press Dir. (U,D, L, R, E, F, G,H,M, C) 

Tl 

730 D$=INKEY$:IF D$="" THEN 730 
ELSE IF ASC(D$)-103 THEN 1260 EL 



SE IF D$="Q" THEN 920 ELSE IF IN 

STR("UDLREFGHMC" ,D$)=0 THEN 720 

740 IF ASC(D$)=103 THEN GOSUB 12 

60 

750 IF D$^"M" OR D$-"C" THEN 770 

760 GOSUB 1130:HPRINT (1,0) , "DRAW 

: Number of Dots " :HPRINT (22,0) , 

DS; INPUT NS : HPRINT (24, 0},N$: IF V 

AL(N$)<1 THEN 7 60 

770 ON INSTR("UDLREFGHMC",D$) GO 

SUB 790, 800, 810, 820, 830, 840, 850, 

8 60, 870, 900 

780 GOTO 720 

789 ' Draw Up 

7 90 IF Vl-VAL (N$)<0 THEN RETURN 

ELSE HLINE (HI, VI)- (HI , Vl-VAL (N$) 

) ,P$ET:T$=T$+"U"+N$ :V1=V1-VAL (N$ 

): GOSUB 910 :E$="U n : RETURN 

799 ' Draw Down 

800 IF VltVAL(N$) >191 THEN RETUR 
N ELSE HLINE(H1,V1)-(H1,V1+VAL(N 
$) ) ,PSET:T$=T$+"D"+N$:V1=V1+VAL{ 
NS):GQSUB 910 : E$="D" ; RETURN 

809 ' Draw Left 

810 IF H1-VAL{N$)<0 THEN RETURN 
ELSE HLINE(H1,V1)-(H1-VAL(N$) , VI 
) ,PSET:T$=T$+"L"+N$:H1=H1-VAL (N$ 
): GOSUB 910;E$="L":RETURN 

819 ' Draw Right 

820 IF H1+VAL(NS)>319 THEN RETUR 
N ELSE HLINE(H1,V1)-{H1+VAL(N$) , 
VI) , PSET:T?=T? + ,, R" + N'?:H1 = H1+VAL{ 
N$) : GOSUB 910:E$="R": RETURN 

829 ' Draw 45 Degree 

830 IF H1+VAL(N$)>319 OR Vl-VAL { 
N$)<0 THEN RETURN ELSE HLINE (HI, 
V1)-(H1+VAL(N$) , Vl-VAL (NS) ) , PSET 
:T$=T$ + "E"+N$:H1 = H1+VAL(N$) :;V1-V 
1-VAL(N$) :GOSUB 910 :E$="E" : RETUR 
N 

839 ' Didw 135 Degree 

840 IF H1+VAL(N$)>319 OR Vl+VAL ( 
N$)>191 THEN RETURN ELSE HLINE (H 
1, V1)-(H1+VAL(N$) ,V1+VAL(N$) ) ,PS 
ET:T$=T$+"F"+NS:H1=H1+VAL(NS) :V1 
=V1+VAL(N$) : GOSUB 910:E$="F" :RET 
URN 

849 ' Draw 225 Degree 

850 IF H1-VAL(N$)<0 OR V1+VAL(N$ 
)>191 THEN RETURN ELSE HLINE (HI, 
V1)-(H1-VAL(N$), V1+VAL(N$) ) , PSET 

:T$=T$+"G"+NS:H1=H1-VAL(N$) :V1-V 
1+VAL(N$) :GOSUB 910: E$="G" : RETUR 
N 

859 ' Draw 315 Degree 

860 IF Hl-VAL(N$)<0 OR Vl-VAL (NS 
)<0 THEN RETURN ELSE HLINE (HI, VI 
)-(Hl-VAL(NS) , Vl-VAL (N$) ) ,PSET:T 
S=TS+"H"+N$:H1=H1-VAL(NS) :V1=V1- 
VAL(N$) ;GOSUB 910 : E$="H" : RETURN 

869 ' Draw Move 

870 GOSUB 1130: HPRINT (1,0) , "DRAW 
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Radio Shack Has the Best in Color Computer Software, 



"SSKSSW 




Choose from a library of popular titles in 
entertainment, education and productivity 



At Radio Shack, we're dedicated 
to making sure that you never run 
out of ways to use and enjoy your 
Color Computer. We've got a ter- 
rific line of software of all types. 

Let your Color Computer open 
the door to a world of fun. Choose 
from a dazzling selection of popular 
and challenging games, including 
Nintendo™ classics. 

One of the most valuable poten- 
tials of your Color Computer is in 

providing your children a head 
start in their education. We've got 



learning programs for children of 
all ages that will provide hours of 
productive fun! With this selec- 
tion, you'll find programs that help 
develop hundreds of useful skills. 

No matter what your personal 
needs, we've got programs that'll 
put your Color Computer to work 
where you need it most — like per- 
sonal filing, word processing, 
spreadsheets and communications. 

Send in the coupon for a free 
copy of our 1990 Software Buyer's 
Guide. Or pick one up at any 



Radio Shack — your one-stop 
neighborhood software center. 



Send me a new 1990 software guide. 

Mail to: Radio Shack. Depl 90A-115-4 
300 One Tantfy Center, Fori Worth. Tx 76IQ2 



Name. 



Address . 

City. 

State 

ZIP 



Phone . 



NintentWTM Nintendo of America, Inc. 



Radio /haek 



The Technology Store' 

A DIVISION OF TANDY CORPORATION 



: Mark Point <M>" :FLG=7 : H=H1 :V=V 
1: GOSUB 80:H2=H:V2=V 
880 H3=H1:V3=V1:E$="M" 
890 HLINE(H1,V1)-(H2,V2) , PSET:T$ 
=T5+"M"+RIGHT$ (STR$ (H2) , LEN (STR$ 
(H2) )-!)+", "+RIGHTS (STRS (V2) , LEN 
($TR$ (V2) ) -1) :H1=H2:V1=V2:G0SUB 
910: RETURN 

899 ' Draw Color 

900 GOSUB 1130:FLG=8:GOSUB 630 :T 
$=T$+"C"+STR$(Z) :G05UB 910:RETUR 
N 

910 IF LEN(T$)>240 THEN PRINT#1, 
T$+CHR${34) :LN=LN+ 10: GOSUB 1130: 
GOTO 700 ELSE RETURN 
920 PRINT#1,T$+CHR$ (34) :LN=LN+10 
: GOSUB 11 30: GOTO 80 

927 ' 

928 ' * Text Command * 

929 ' 

930 TS$="" :HPRINT (1,0) , "TEXT: Ma 
rk Starting Point <P>" : Hl=0: Vl=8 
940 HGET(H1,V1) - (Hl+8, Vl+8 ) , 3 :HL 
INE(H1, VI) ■ - (HI + 8, Vl + 8) , PSET, BF : C 
$=INKEY$ :HPUT (HI, VI) - (Hl+8, Vl+8) 
,3 

950 IF PEEK (341) -247 THEN Vl=Vl- 

8 ELSE IF PEEK(342)=247 THEN Vi= 

Vl + 8 

960 IF PEEK{343)=247 THEN H1=H1- 

8 ELSE IF PEEK (344)=247 THEN Hl= 

Hl+8 

970 IF H1>311 THEN H1=0 ELSE IF 

HK0 THEN Hl = 311 

980 IF Vl>183 THEN V1=0 ELSE IF 

VK0 THEN Vl=183 

990 IF C$<> ,, P" THEN 940 

1000 H2=INT(Hl/8) :V2=INT(Vl/8) :G 

OSUB 1130:HPRINT (1,0) , "Text ? ": 

Hl = 64 

1010 HGET(H1,0) (111 I 8,8) , 3:I1LINE 

(HI, 0)- (Hl+8, 8) ,PSET,BF:CS-INKEY 

$:HPUT(H1,0) -(H1+8,8),3:IF C$ = "" 

THEN 1010 ELSE C=ASC(C$) 
1020 IF C>13 GOTO 1050 
1030 IF LEN(TS$)>0 AND C=8 THEN 
HCOLOR 0:HPRINT ((Hl + 8) /8-2,0) , RI 
GHT$ (TS$, 1) :H1=H1-8:HCQL0R Z:TS$ 
=LEFT$ <TS$, LEN (TS$) -1 ) :GOTO1010: 
ELSE IF C=8 THEN 1010 
1040 IF C=13 THEN 1060 
1050 IF LEN(TS$)<=40 THEN TS$=TS 
StC$:HPRINT(Hl/8, 0) ,C$:H1=H1+8:G 
OTO 1010: ELSE SOUND 250,3:GOTO 1 
010 

1060 HPRINT(H2,V2) ,TS$ 
1070 PRINT#1,STR$ (LN) +"HPRINT ("+ 
STR$ (H2) + ", "+STR$ (V2) +") , "+CHR$ ( 
34) +TS$+CHR$ (34) : LN=LN+10 : GOSUB 
1130:E1=H2:E2=V2:E$="T":GOTO 80 

1077 ' 

1078 ' * Cursor Limiter * 



1079 ' 

1080 IF H>317 THEN H=2 :FG=3 :ELSE 
IF H<2 THEN H-317:FG=3 

1090 IF V>189 THEN V=2 : FG=3 :ELSE 

IF V<2 THEN V=189:FG=3 
1100 IF TG-1 AND FC-3 THEN GOSUB 

U30:FG=0:ELSE IF TG=1 AND HOH 

AND VC=V THEN RETURN 
1110 IF TG=1 THEN HC$=STR$ <HC) :V 
C$=STR$ (VC) :CO$=RIGHTS (HCS, LEN (H 
C$)-l) +", "+RIGHTS (VC$,LEN(VC$)-1 
): HCOLOR 0:HPRINT (30, 0) , C05 :HCOL 
OR Z:H$=STR$ (H) :V$=STR$ (V) :CN$=R 
IGHT5 (H$, LEN(H$) -1) +", "+RIGHT$ (V 
$,LEN(V$)-1) :Hfc>KlNT(30,0) ,CNS 
1120 RETURN 

1127 ' 

1128 ' * Status Clear & Co. Box 
Update * 

1129 • 

1130 HPUT(0,0)-(300,15) , 1:RETURN 
1140 HCOLOR Z:HLINE (300, 0) - (319, 
10) , PSET, BF : RETURN 

1146 ' 

1147 1 * Erase Last Function * 

1148 ' 

1149 ' Erase Line 

1150 IF E$="L" THEN HLINE (El, E2) 
- (E3,E4) ,PRESET:ELSE IF E$="LB" 
THEN HLINE (El, E2)-(E3,E4) , PRESET 
,B:ELSE IF E$="LF" THEN HLINE (El 
,E2) - (E3,E4) , PRESET, BF 

1159 ' Erase Ellipse 

1160 IF E$="E" THEN K=MP0INT(E1, 
E2) :HCIRCLE(E1,E2) , E3, K, E4, ES, E6 

1169 ' Erase Paint 

1170 IF E$="P" THEN HPAINT{E1,E2 
) ,E3,E4 

1179 ' Erase Text 

1180 IF E$-"T" THEN HCOLOR : HPR 
INT(E1,E2) ,T3C:HCOLOR S 

1190 IF E$="" THEN GOSUB 11 30: HP 
RINT(0,0) , "LAST ENTRY ALREADY ER 
ASED 1 ': SOUND 50, 5: FOR T=l TO 500: 
NEXT: GOSUB 1130, 1140: RETURN 

1199 ' Disk File Fix 

1200 E$="" : CLOSE: RENAME NN$ TO " 
EL. DAT": OPEN "I", #2, "EL. DAT" :OPE 
N "0",#1,NN$ 

1210 LINE INPUT #2,K$ 
1220 IF EOF(2)=-l THEN 1240 
1230 PRINT#l,K$:GOTO 1210 
1240 CL0SE#2:KILL"EL.DAT" 
1250 LN=LN-10: RETURN 

1259 ' Erase Draw 

1260 IF ES="" THEN 720 ELSE IF E 
$-"M" THEN 1360 

1270 TS=LEFT$(T$, (LEN (T$) - (LEN (N 
$)+D )) 

1279 ' Erase Up 

1280 IF E$="U" THEN HLINE (HI, VI) 
- (H1,V1+VAL(N$) ) , PRESET :V1=V1+VA 
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L(N$) :E$="" :GOTO 720 

1289 ' Erase Down 

1290 IF E$="D" THEN HLINE(H1,V1) 
-(H1,V1-VAL(N$) ) , PRESET :V1=V1-VA 
L(N$) :E$="":GOTO 720 

1299 ' Erase Left 

1300 IF E$="L" THEN HLINE(H1,V1) 
-(H1+VAL(N$> ,V1) , PRESET :H1=H1+VA 
L(N$) :E$="" :GOTO 720 

1309 ' Erase Right 

1310 IF E$="R" THEN HLINE (Hi, VI) 
-<Hl-VAL(N$) ,V1) , PRESET :H1=H1-VA 
L(N$J :E$="" :GOTO 720 

1319 ' Erase 45 Degree 

1320 IF E$ = ,, E" THEN HLINE (HI, VI) 
-(H1-VAL(N$) ,V1+VAL(N$} ) , PRESET: 
H1=H1-VAL(N$) :V1=V1+VAL(N$) :E$=" 
":GOTO 720 

1329 * Erase 135 Degree 

1330 IF E$-"F" THEN HLINE {Hi, VI) 
-(Hl-VAL(NS) , V1-VAL(N$) ) , PRESET: 
Hl=Hl-VAL(N$) :V1=V1-VAL(N"$.) :E$ = " 
":GOTO 720 

1339 ' Erase 225 Degree 

1340 IF E$="G" THEN HLINE (HI, VI) 
-(H1+VAL(N$) ,V1-VAL(N$> ) , PRESET: 
H1=H1+VAL(N$) :V1=V1-VALEN$) :E$=" 
" ;GQTO 720 

1349 ' Erase 315 Degree 

1350 IF E$="H" THEN HLINE (Hi, VI) 
-<H1+VAL(N$) f Vl+VAL(N$) ) , PRESET: 
H1=H1+VAL(N$) :V1=V1+VAL(N$) :F$ = " 
":GOTO 720 

1359 ' Erase Move 

1360 HLIKEIH3,.V3)-(H2,V2) , PRESET 
:H1=H3:V1=V3;W$=STR$ (H2) +STRS (V2 
) :L=LEN(W$) +2:T$=LEFT$ (T$,LEN{T$ 
) -L) :E$=""rGOTO 720 

1367 ' 

1368 ' * Space Remover & Print S 
ub. * 

1369 ' 

1370 OPEN "I" f #1,NN$:Q=LEN(NN$) : 
Q=Q-4:NN$=LEFT$ (NN$,Q) +" .BAS":OP 
EN "0",#2,NNS 

1380 IF RS-0 THEN PRINT"PRQGRAM 
LISTING OF ";NN$: PRINT 
1390 LINE INPUT#1, L$:L1$="" 
1400 P=INSTR(L$," "):L=LEN(L$) 
1410 IF 1NSTR(L$,CHR$ (34) ) >0 AND 

P>INSTR(L$ f CHR$ (34) ) THEN P=0 
1420 IF P=0 THEN 1450 
1430 L1$-L1$+LEFT$ (L$,P-1) : L$=RI 
GHT$ (L$,L-P) 
14 40 GOTO 1400 

1450 L1$=L1$+L$:IF VAL (LEFTS (Ll$ 
, 4) ) OVAL (LEFTS (L2$, 4) ) AND RS-0 

THEN PRINTL2$ 
1460 L2$=L1S 
1470 PRINT#2 r LlS 
1480 IF E0F(1)<>-1 THEN 1390 
1490 IF RS=0 AND FO0 THEN PRINT 



Ll$ 

1500 CLQSE#1:CL0SE#2:Q=LEN(NNS) - 

4:NNS=LEFT$ <NN$,Q) +" . DAT" : KILLNN 

$ 

1510 IF RS-1 THEN NN$=LEFT$ (NN$, 

LEN(NN$)-4) :NN0=NN$+" .BAS" : GOTO 

1730:ELSE END 

1517 ' 

1 * Palette Setup Subroutin 



1518 

1519 
1520 
INT 
1530 



CLS:PRINT"PALETTE SETUP" :PR 



PRINT: INPUT "NEW PALETTE 



(Y 
/N)";P$:IF P5<>"Y" AND P$<>"N" T 

HEN 1530:ELSE IF P$="Y" THEN PRI 

NT: GOTO 1550 

1540 OPEN "I", #2, "PALETTE. DBL":F 

OR X=l TO 15 :INPUT#2 r PL{X) : NEXT 

X:CL0SE#2:F0R X=l TO 15: PALETTE 

X,PL(X) :NEXT X:PALETTE 0,0:GOTO 

1610 

1550 FOR X=l TO 15 

1560 PRINT"CQLOR";X;" Color Code 

";: INPUT P:IF P>63 THEN 1560 

1570 PL(X) =P:NEXT X 

1580 FORX=l TO 15: PALETTE X,PL(X 

) :NEXT X: PALETTE 0,0 

1590 CLS:INPUT"SAVE NEW PALETTE? 
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(Y/N) ";P$ :IF P$<>"Y" THEN 1610 
1600 OPEN "O", #2, "PALETTE. DBL" :F 
OR X=l TO 15:WRITE #2, PL (X) :NEXT 

X: CLOSE #2 
1610 FOR 5C-1 TO 15:QS=Q$+", "+STR 
$(PL(X) ) :NEXT X 

1620 Q'$="100FORX=0TO15:READW:PAL 
ETTE X,W;NEXT X : DATA 0"+Q$ 
1630 PRINT* 1,Q$: RETURN 

1637 ' 

1638 ' * Grid Function * 

1639 ' 

1640 FOR X=0 TO 320 STEP 10 
1650 FOR Y=0 TO 191 STEP 10 
1660 IF G-0 THEN HSET(X,Y,Z) 
1670 IF G=l THEN HRESET(X,Y) 
1680 NEXT Y,X 

1690 IF G=0 THEN 6=1 ELSE G=0 
1700 RETURN 

1707 ' 

1708 ' * Help Command * 

1709 • 

1710 FOR X=l TO 12: READ H$:HPRIN 
T(l, 0) ,H$:FOR Y=l TO 400:NEXT Y: 
GOSUB 11 30: NEXT X : RESTORE : RETURN 
:DATA "COLOR: Press <C>","LINE: 
Press <L>", "ELLIPSE: Press <E>" 
1720 DATA"DRAW: Press <D>","PAIN 
T: Press <P>","TEXT: Press <T>", 
"COORDINATES: On/Off Press <CTRL 
>","GRID: On/Off Press <F2>","ER 
ASE LAST: Press <F1>", "REDRAW: P 
ress <ALT>", "HELP: Press <?>","Q 
GIT: Press <Q>" 

1727 ' 

1728 ' * Redraw Function & Old F 
ile * 

1729 ' 

17 30 HCLS0:OPEN "I",#1,NN$ 

1740 LINE INPUT #1, 1$ 

1750 IF INSTR (1$, "GOTO") <>0 THEN 

2170 
1760 IF VAL(LEFT$ (1$, 4) ) =100 THE 
N A$-MID$(I$,42) ;FOR X=0 TO 14:A 
=LEN(A$) :P$=LEFT$ (A$, INSTR(A$, ", 
") ) :P=VAL(P$) :PL=LEN(P$) :A$=RIGH 
T$ (A$,A-PL) : PALETTE X,P:NEXT X:P 
ALETTE 15,VAL(A$) :GOTQ2170 
1770 IF VAL (LEFTS (IS, 4) )=110 THE 
N 2170 

1780 I-INSTR(I$, "H") :IF I>8 OR I 
=0 THEN 2170 

1789 ' Color 

1790 IF MIDS (IS, I, 3)="HCO" THEN 
HCOLOR VAL(MID$ (IS, 1+6,2) ) : GOTO 
2170 

1799 ' Ellipse 

1800 IF MID$(I$,I,3)<>"HCI" THEN 
1830 ELSE X=VAL(MID$ (1$, 1+8, INS 

TR(I$,'\ ") ) } :I$=RIGHT$(I$,LEN(I$ 
) -INSTR (1$, ",") ) :Y=VAL( LEFTS (IS, 
INSTR (1$, ","))) :I$=RIGHT$ ( I $ , LEN 
(1$) -INSTR (1$, ", ") ) :R=VAL (LEFTS ( 



I$,INSTR(I$, ",") ) ) 

1810 I$=RIGHT$ (I$,LEN(I$) -INSTR( 

1$, ", ") ) :C=VAL (LEFTS (1$, INSTR(I$ 

, ", "j ) ) : IS=RIGHT$ (1$, LEN ( IS) -INS 

TR ( I $,",") ) : HW=VAL ( LEFTS (IS, INST 

R(I$,",") ) ) :I$=RIGHTS(I$,LEN(IS) 

-INSTR(I$, ", ") ) :S$=LEFTS (IS, INST 

R(I$, ", ") -1) :E$=RIGHT$ (I$,LEN(I$ 

) -INSTR(I$, ", ") ) 

1820 HCIRCLE(X, Y) f R,C,HW,VAL(SS) 

, VAL(E$) :GOTO 2170 

1829 r Text 

1830 IF MID$(I$,I,3)="HPR" THEN 
X-VAL(MID$ (1$, 1+7, INSTR (1$, *',")) 
) :I$=RIGHT$ ( 1$ , LEN (1$) -INSTR (1$, 
", ") ) : Y=VAL (LEFTS (1$, INSTR(I$, ", 
" ) ) ) :I$=RIGHT$ (I$,LEN (IS) -INSTR ( 
1$,",") ) :I$=LEFT$(I$,LEN(I$)-1) : 
I $=RI GHT S ( I $ , LEN ( I S ) - 1 1 : HPRINT ( X 
, Y) , I$:GOTO 2170 

1839 ' Draw 

1840 IF MID? (1$, I,3)<>"HDR" THEN 
2090 ELSE 

18 50 L=LEN(I$) :I$=RIGHT$ (I$ f L- (I 

NSTR(I$ f "M") ) ) :L=LEN(I$) :H=VAL(L 

EFTS (IS, INSTR (IS, ","))) : I$ = RIGHT 

$ ( I $ , L- INSTR (!$,",")): L-LEN ( I $ ) 

1860 Ql$="":FOR Q-l TO 3:Q$-MID$ 

(I$,Q,1) tIF INSTR ("UDLREFGHMC'VQ 

$)=0 THEN Ql$=Ql$+Q$:NEXT Q 

1870 IF Ql $<>"" THEN Q$=Q1$:V=VA 

MQS) 

1880 IS-RIGHTS (IS, L-LEN (QS) ) : IF 

LEN(I$)=1 THEN 2170 

1890 L1=LEN(I$) ;F0RX=1 TO L1:A$= 

MID$(I$,X,1) :IF INSTR ("UDLREFGHM 

C",A$)=0 THEN Al$=Al$+A$:GOTO 19 

10 

1900 W=INSTR("UDLREFGHMC",A$) : IF 

A1$= MM THEN NEXT X 
1910 IF INSTR ("UDLREFGHMC,' , ,MID$ 
(I$,X+1,1) )=0 THEN NEXT X 
1920 IF LEN(I$)-0 THEN 2170 
1930 L=LEN(I$) ;A=VAL(A1$) : I$=RIG 
HT$(I$,L-(LEN(A1S) +1) ) :A1?="" : L= 
LEN(I$) 

1940 ON W GQSUB 2000,2010,2020,2 
030, 2040, 2050, 2060, 2070, 1960, 208 


1950 IF LEN(I$)<>1 THEN 1890 ELS 
E2170 

195 9 * Draw Move 

1960 H1=A:I$=RIGHT$ (I$,L-1) : L=LE 
N(I$) :Zl$="":FOR Z = l TO 3:Z$=MID 
S(IS,Z,1) :IF INSTR ( "UDLREFGHMC", 
Z$)=0 THEN Z1S=Z1S+Z$:NEXT Z 
1970 IF Zl$<>"" THEN Z$-Z1$ 
1980 V1=VAL(ZS) :I$=RIGHTS(I$,L-L 
EN(Z$) ) JHLINE (H,V)-(H1,V1) ,PSET: 
H=H1 :V=V1:L=LEN(I$) 
1990 RETURN 

1999 ' Draw Up 

2000 HLINE(H,V)- (H,V-A) ,PSET:V=V 
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<« GJMrlESOFT >» 

A new generation of Color Computer products 



MaEicrCoj a 



V-Term Terminal 

-Vox, Unix, Mainframe, and BBS systems 
-Vt-100, VL-52, Vidlex. and Ascli emulations 
-Works with EMACS and VI full screen editors 
•Full 28x80 screen, 128 ASCII characters 
•High-Res graphics. Monochrome support 
-Serial port to 2400, RS-232 to 19,200 baud 
-DCModem Pak and Disto controller support 
•XModem, XModem-CRC, YModem, & ASCII 
■File transfers direct to disk or memory 
-15 entry autodial, 10 programmable macros, 
-35/40/80 Tracks, Hyper I/O &. RGBDOS 
Disk {128k or 512k CoCo 3 only) .... $39.95 




Telepak II 

A Truly Compatible RS-232 Interface! 
Telepak II answers the demand for an 
RS-232 Interface. It comes with a S 
foot DB25 cable, gold edge contacts and 
is built with low power drain (5v) 
components. Works on all CoCo 1,2, or 3. 
MP1 ot Y-Cable required on disk systems, 
Telepak & Manual . $49.95 

Y-Cables 

V-TERM + Telepak ..$79 Gold contact Y-Cables S27.95 



Turbo 512k Ram 

•Fully assembled and tested board 
•Premium 120ns 256x1 memory chips 
-Easy to follow instructions 
•Fast and easy installation 
-Complete with 512k software 
-RamDisk, RamTest, & Print Spooler 

512k board w/software ... $139.95^ 

0k board w/software ... $39.95 512k + Studio Works $185 




Studio Works 

A digital audio sampler second 
to none! Full point & click. 
Includes reverse, delete, copy, 
volume control, play block, 
sequencer, envelope shape, key 
play, play thru, looping & file 
compression. Samples 17k/sec. 
Works with Maxsound cablel 
W/O cable - 138.95 W/cable ■ (53.95 



Warrior King $29.95* 

Kung-Fu Dude 524.95 

In Quest of the Starlord $34.95 
Hint sheet for Starlord $3.95 

Pyramix $19.95^ 

HaU of the King 1 2 or 3 $29.95" 

Dragon Blade , $19.95 

White Fire of Eternity . $19.95 
Paladin's Legacy $34.95 

' CoCo 3 only 

Multi-label III Version 2.00 

This latest version of Multi-Label III 
now prints labels one, two or three 
across! Comes configured for most 
Tandy and Epson printers „ $16.95 
Upgrades to Version 2.00 .. $6.95 

Fkeys III (Coco 1.2, s> $19.95 

Easy to use, DOS mods, 20 function keys 

Sixdrive (Coc© 1.2. 3) $16.95 

Use up to 3 d/s drives as 0,1 2,3 4,5. 

Toll Free 

Free 2ND AIR from Midwest to California 

Orders: 9am to 9pm Eastern time 

Online orders: Delphi's CoCo Sig 

Inquiries & technical assistance: 7pm to 9pm 



Games 



KYUI1-6fiI 4 

-To be 
Ninja 1 



Kyum-Gai: to be Ninja 

As the Ninja Gal-Dan, you must 
find and destroy evil forces, use 
a multitude of martial arts moves 
to defeat your enemies, obtain 
treasures & weapons, and evade 
obstacles! Kyum-Gai: to be Ninja 
uses the most detailed 320x200, 
16 color graphics, the highest 
quality digital sound effects and 
spectacular animation! 

CoCo 3, disk, & joystick .. $29.95 




MPI-CoCo Locking Plates 

This money saving device is now 
available for the CoCo 2 and 31 
It is important when ordering to 
specify CoCo 2 or 3 and MPI 
263024 or 26-3124. Only $7.95 

Suprftle III {CoCo 3 only) $29.95 
Easy to use, multi-purpose database. 

BidWriter (pc/w/at only) $49.95 

Create & print professional proposals. 



1 ^00-441-GrMF 



Order line 



GIMMESOFT 

P.O. Box 421 

Perry Hall, MD 21128 

301-256-7558 



Add $3.00 for shipping and handling 
Add $3.00 for COD (USA only) 
MD residents add 5% sales tax 
V1SA/MC/ Check/Money Order/ COD 



-A: RETURN 

2009 ' Draw Down 

2010 HLINE (H,V) -(H,V+A) , PSET : V=V 
+A: RETURN 

2019 ' Draw Left 

2020 HLINE (H, V) - <H-A,V) , PSET: H=H 
-A: RETURN 

2029 ' Draw Right 

2030 HLINE (H, V) - (H+A, V) , PSET : H=H 
+A : RETURN 

2039 ' Draw 45 Degree 

2040 HLINE (H, V) - (H+A, V-A) ,PSET:H 
=H+A : V=V-A : RETURN 

204 9 ' Draw 135 Degree 

2050 HLINE (H,V) -{H+A,V+A) ,PSET:I1 

=H+A:V=V+A: RETURN 

2059 ' Draw 225 Degree 

2060 HLINE(H,V) - (H~A,V+A) ,PSET:H 
^H-A : V=V+A : RETURN 

2069 ' Draw 315 Degree 

2070 HLINE (H,V) - (H-A,V-A) ,PSET:H 
=H-A:V=V-A: RETURN 

2079 ' Draw Color 

2080 HCOLOR A: RETURN 

2089 ' Paint 

2090 IF MID$ (1$, I, 3)<>"HPA" THEN 
2120 ELSE I$=RIGHT3 (IS, LEN(I$) - 

6-1) :H$=LEFT$ (1$, INSTR(I$, ", ") ) : 

I$=RIGHT$(I$,LEN(I$)-LEN(H$) ) :H= 

VAL(H$) 

2100 V$=LEFT$ (1$, INSTR(IS, " , " ) ) : 

I$=RIGHT$ (I$,LEN(I$) -LEN{V$) ) :V= 

VAL (V$) 

2110 K$=LEFT$ (1$, INSTR(I$, " , " ) ) : 

K-VAL (KS) :I$-RIGHT$ (1$, LEN (1$) -L 

EN{K$) ) ;E=VAL(I$) :HPAINT (H,V) , K, 

E:GOTO2170 

2119 ' Line 

2120 IF MID$(I$, I, 3)<>"HLI" THEN 
2170 ELSE 1$=RIGHT$ (1$, LEN(I$)- 

5-1) :H1$=LEFT$ (1$, INSTR(I$, ", ") ) 

:I$=RIGHT$ (I$,LEN(I$)-LEN(H1$) ) : 

H1=VAL(H1$) 

2130 V1S=LEFT$ ( 1$, INSTR ( 1$ , "-") ) 

:l$=RIGHT$(I$,LEN(I$)-LEN(Vl$) ) ; 

V1=VAL(V1$) :H$=LEFT$ (IS, INSTR(I$ 

,",")) :H$=RIGHT$ (H$,LEN(H$) -1) :I 

$=RIGHT$ (I$,LEN ( 1$) -LEN (H$) -1 ) :V 

$= (LEFTS (I$,LEN(I$) -6) ) :H=VAL(H$ 

) :V=VAL(V$) 

2140 IF INSTRflS, "BF") <>0 THEN H 

LINE (HI, VI) - (H,V) , PSET, BF:GOTO 2 

170 

2150 IF INSTR(I$, "B")<>0 THEN HL 

INE(H1,V1)- (H,V) ,PSET,B:GQTQ 217 



2160 HLINE (HI, VI) - (H,V) , PSET: GOT 

2170 

2170 IF EOF (1)<> 1 THEN 1740 

2179 ' Disk File Fix 

2180 CLOSE #1:0PEN " I " , #2, NN$ :Q= 
LEN(NN$) -4;NN$=LEFT$ (NN$,Q) +".DA 
T":OPEN "0",#1,NN$ 



2190 LINE INPUT#2,L$:PRINT#1,L$ 

2200 IF E0F(2)<>-1 THEN 2190 

2210 LN=VAL(LEFT$(L$,4) ) ;CLOSE # 

2 

2220 RETURN 

2227 ' 

2228 ' * Title Page * 

2229 ' 

22 30 HSCREEN2: PALETTE 0,0:HCLS0: 

HCOLOR 8 

2240 HLINE(0,0)-(159,191) ,PSET:H 

LINE- (319,0) ,PSET 

2250 HCOLOR2 :HLINE (319, 85) - (159, 

191) , PSET: HLINE- (0,85) , PSET 

2260 HC0LOR3: HLINE (0,1 52) - (1 59, 1 

91) ,PSET:HLINE-(319,152) ,PSET 

2270 HCOLOR3:HPRINT(10,5) , "GRAPH 

ICS PROGRAMMER" 

2280 HC0L0R2:HPR1NT(19,7) , "by" 

2290 HCOLOR8:HPRINT(ll, 9) , "Micha 

el J Vandal 1" 

2 300 FOR T=l TO 10: FOR X=l TO 7 5 

; NEXT: PALETTE 2,9:PALETTE 3,36:P 

ALETTE 8, 18: FOR X-l TO 75;NEXT:P 

ALETTE 2 ,18: PALETTE 3, 9: PALETTE 

8, 36: FOR X=l TO 75 : NEXT : PALETTE 

2, 36: PALETTE 3, 18: PALETTE 8 , 9 : NE 

XT 

2310 RETURN 



Listing 


2: DEMO 


100 


FORX=0TO 1 5 : READW : P ALETTEX , W : 


NEXTX:DATA0,54,9, 36, 63, 27,45, 38, 


18, 58, 47, 42,23, 1 , 15, 60 


110 


HSCREEN2:HCLS0 


120 


HCOLOR10 


130 


HCIRCLE( 55,134) , 9, 10, 1 . 5, 0, 1 


140 


HCIRCLE(55,95) ,9,10,1.5,0,1 


150 


HCIRCLE(55,55) ,9, 10, 1.5,0, 1 


160 


HDRAWTBM55, 42R220D92L2 12 " 


170 


HDRAW"BM63,55R167D13L175" 


180 


HDRAWBM55, 82R175D13L167" 


190 


HDRAWBM55, 108R175D13L175" 


200 


HLINE (55, 147) -(255, 147}, PSET 


210 
T 


HLINE (255, 147) -(275, 134) , PSE 


220 
T 

230 


HLINE (230, 108) - (210, 121) , PSE 


HLINE (210, 95) -(230, 82) ,PSET 


240 


HLINE (230, 55) -(210, 68) ,PSET 


250 


HPAINT{214,94) ,11,10 


260 


HPAINT(214,120) ,11,10 


270 


HPAINT(214,66) ,11,10 


280 


HPAINT (56,66) ,11, 10 


290 


HPAINT{56,84) ,11,10 


300 


HPAINT (56,125) , 11, 10 


310 


HCOLOR2 


320 


HPRINT (8, 3) /'Graphics Progra 


mmer Demo" 


330 


GOTO 330 fP\ 
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ft.r Calligrapher Special O 
The Calligrapher fV2.0) for RS-DOS, 0S9 and MS-DOS with all 5 Economy Font 
Packages and the Font Massagcr is available at the special price of $99.95 (phis 
$5 ski)). This is a savings of almost, $-10! This special is valid through October 
31st. See the descriptions below. 



CALLIGRAPHER 

CoCo Calligrapher - Turn your 
CoCo and dot-matrix printer into 
a calligrapher's quill. Make beau- 
tiful invitations, flyers, certif- 
icates, labels and more. Includes 
three x k inch high fonts. Works 
with many printers such as Epson, 
Gemini and Radio Shack. Over 
tSS additional fonts are available 
(see below), Tape/Disk (RS-DOS); 
$24.95. 

Calligrapher V2.0 - Prints all 
the same fonts as the CoCo Calli- 
grapher. It reads a standard text 
file which contains text and for- 
matting codes. You specify the 
fonts, centering, left, right or full 
justify, line fill, margin, line 
width, page size, page break, page 
numbers, indentation, multiple 
columns, macros, headers, footers 
and more. Includes the same 3 
fonts with additional fonts avail- 
able below. Disk only; Specify 
0S9 or MS-DOS; $24.95.* 

Calligrapher Fonts - Requires 
Calligrapher above. Each set on 
tape or disk with 8 lo 10 fonts; 
Specify RS-DOS, OS9 or MS-DOS 
format; $14.95 each: 

Set. #1 Reduced and reversed originals; 

Set #1! Old Style and Broadway; 

Set #3 Antique and Business; 

Set #1 Wild West and Clickers; 

Set #5 Stars, Hebrew and Victorian; 

Set #0 Block and Computer; 

Set #7 Small; Roman, Italics, Cubes, etc; 

Set #8 Novelty fonts- 
Set #D Gallant and Spartan; 

Set #10 Several Roman Tonts; 

Set #11 Gothic and Script; 

Set #12 Metre Roman and Italic; 

Set #13 Several Courier fonts; 

Set #14 Modern and Screen; 

Set #15 Tefctron and Prestige 

Economy Font Packages avail- 
able on disk only, with 25 to 30 
fonts; Specify RS-DOS. GS9 or 
MS-DOS format; 29.95 for any 
one or save by buying two or 
more at $19.95 each;' 

Pkg #1 - Above font sets 1, 2 and 3; 

Pkg #2 - Above font sets 4, 5 and 6; 

Pkg #3 - Above font sets 7, 8 and 9; 

Pkg #-1 - Above font sets 10, 11 and 1*2; 

Pkg #S Above font sets 13, H and 15. 



Calligrapher Combo Package - Includes the Calligra- 
pher and any two Economy Font Packages (your choice) 
for only $59.95. Specify RS-DOS. OS9 or MS-DOS*. 



Roman 

Courier 

Italics 

Screen 



Prestige 

Mill 

Galant 



dWIss 

Modern 

Tiny Rnuai 

TekTron 



Spartan 

GeySO 

Stars 



The Font Massager - This 
OS9/MS-DOS utility program al- 
lows you to do many things to 
Calligrapher font files. You may 
create new fonts, modify existing 
fonts, invert fonts, compress fonts, 
double the height and/or width, 
halve the height and/or width and 
convert between RS-DOS and 
OS9/MS-DGS formats. (Note: OS9 
and MS-DOS font files are identical 
and need no conversion Simply copy 
or upload the tiles from one OS to the 
other.). Specify OS9 or MS-DOS; 
$19.95. 

DATA BASE 



EDUCATIONAL 

Trig Attack - Ages H and up. An 
educational arcade game where 
players learn important math con- 
cepts as they play. Sound effects, 
colorful graphics. Excellent 

manual includes an introduction 
to trigonometry. Tape/Disk; 
$19.95. 



TIMS Combo Package - All 

three of the following programs: 
TIMS, TIMS Mail and TIMS Util- 
ity on one disk - $34.95. Save 
about. $20.00! 



TIMS (The Information Man- 
agement System) - Tape or 
disk, fast and simple general data 
base program. Create files of 
records that can be quickly sorted, 
searched, deleted and updated. 
Powerful printer formatting. Up 
to 8 u-ier fields, sort on up to 3 
fields. Tape/Disk; $19.95. 

TIMS Mail - Tape or Disk based 
mailing list program. Files are 
compatible with TIMS. Past and 
simple to use. Supports labels I, 
2 or 3 across, 2tt to 1 inches wide- 
Tape/Disk; 119.95. 

TIMS Utility - Utility companion 
for TIMS and TIMS Mail for 
multi-term search [AND and OR 
logic), global change and delete, 
split large files and more! 
Tape/Disk; $14.95 



The Educational Combo - 
The Combo includes these edu- 
cational (and entertaining) 
games: 

Silly Syntax (ages 5 and tip) 
story creation game & 2 stories 
Galactic Hangman ,(&geS 7 

and up) animated graphics, with 

a 700 word vocabulary 

The Presidents of " the USA 

(ages 10 and up) a presidential 

Trivia game 

The Great USA (ages 9 and 

up) a trivia game of the states 

Trig Attack (ages 9 and up) 

Zap those Trigs 

All five programs on one disk: 
$49.95 (save $50!). 



SPECIAL INTEREST 

Rental Property Income and 

Expense Management Package - 
Maintain rental property income 
and expense records and print re- 
ports, 21 expense categories. This 
program ' may be tax deductible. 
Disk only; $29,95. 

CoCo Knitter - Kasy to use pro- 
gram to display or print instruc- 
tions to knit a sweater: Cardigan 
or Pullover; Round or V-neck; Ra- 
glan or Set-in Sleeve; 3 weights of 
yarn; 8 sizes from baby to man. 



Tape/Disk: $19.95. 
For a complete catalog of Sugar Software products and fonts, send a stamp and a label. 
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"TRS-80 is a trademark of Tandy Corp. 





SUGAR SOFTWARE 

P.O. Box 7446 

Hollywood, Florida 33081 

(305)981-1241 



Ail pTogramt run on the CoCo I, S ami S, 3;!K 
Extended !>ni\: itiiiae otherwise mrterf. Add 
Si. SO per tape or disk for shipping and han- 
dling. Florida, residents add 6%sales t-EiX. COD 

orders add $5. Dealer inquiries invited. Orders 
generally shipped in 24-48 hours. No refunds 
or exchanges without prior authorisation. 
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32K Disk 




Use this program to create your own 
study guides 



Super Quiz 



By Douglas W, Giles 



£~>f uper Quiz is a program designed 
^ to help both students studying at 
JkJ home and teachers involved with 
any subject requiring memorization. 
The program requires 32K and Disk 
Extended Color BASIC. The program is 
set up for a single-drive system; how- 
ever, if you prefer to use a two-disk 
system, modify the program by deleting 
the REM statements in lines 216, 229, 
301, 315 and 1008, and then inserting a 
REM statement in Line 1007. When you 
complete this alteration, the program 
will run from Drive 0, and your files or 
data will be stored in Drive 1. A sum- 
mary of these REM statements can be 
found in the program following Line 
2000. 

I use two commands that some CoCo 
users may not be able to use. The first 
is POKE G5495.0 and its opposite, POKE 
GS494,0. These two pokes speed up 



Doug Giles is a Lutheran Pastor in 
northern Canada. His hobbles include 
literature, language and theology. But 
when things really get hectic, he can be 
found working out programs on his 
Model 4j P or his Color Computer. 



and slow down the CoCo 2 for various 
subroutines. (Use POKE 65437,0 and 
POKE 65436,0, respectively, if you are 
using a CoCo 3.) These commands may 
be found in lines 12, 13, 142, 502, 550, 
625 and 636. The second unusual com- 
mand, EXEC 44539, is found in lines 623 
and 1034. This command performs the 
same function as: 10 fi$=INl<EYS; IF fis 
= """" THEN 10. It is a pause-and-wait- 
for-key-board input command. I prefer 
to use EXEC 44539 where possible, 
simply because it requires less space and 
looks neater. 

When the program is run, a title 
graphics page is displayed, followed by 
the main menu. To create more space 
for the question-and-answer buffer, 1 
have dumped the graphics capability 
(Line 14) of the program after the 
original graphics display. However, the 
computer is restored to its power-up 
default values when the program is 
exited through the appropriate prompt 
on the main menu. 

The main menu gives you the follow- 
ing choices: Load Questions, Begin 
Questionnaire, Quit Program, Save 
Questions to Disk, Formulate Ques- 
tions, Print View or Amend, and File 
Directory. 



In the main menu, the computer will 
identify the file found in the buffer. If 
the buffer is empty or your questions 
have not been saved, the file is identified 
as No Name. If your buffer is empty, 
choose Load Questions from the main 
menu. Press the prompt for Save Ques- 
tions to Disk if your questions arc 
already loaded. Then choose an ap- 
propriate filename. In this way, you 
always know what file is in the buffer. 
There is also a fail-safe (G0SUB 15@) that 
prevents you from accidentally dump- 
ing a newly created question/answer 
file. The only menu choice that will 
work at this time is option E, Formulate 
Questions. 

Formulate Questions 

The screen display now prompts you 
to enter Question 1 . To exit this routine 
press @ to return to the main menu. At 
the prompt, enter Question 1, type in 
any question you choose (i.e., "How 
many suns are there in the sky?"). I use 
inverse video, shift-0, so that during 
the questionnaire subroutine, questions 
and answers are easy to read, even with 
the screen prompts in place. 

Now that your question is typed, 
press ENTER. You are now prompted to 
enter an answer. Once again, using 
SHiFT-0, enter your answer. Your ques- 
tion/answer is numbered and stored, 
and you are prompted to enter Question 
2. The question/answer numbers are 
assigned permanently and will ascend to 
99, at which time you will be prompted 
to save the contents and start a new 
questionnaire. You can use a maximum 
of 255 bytes for each question and 
answer (although if you did this for 99 
questions and answers, you would run 
out of memory). For this trial run, enter 
five question/ answer groups. 

When you have finished entering five 
questions and answers, press @ and you 
will be returned to the main menu. I 
recommend that at this point, before 
proceeding to any other subroutine, you 
save your file. If you have spent a great 
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Dr. Preble's Programs 
Since 1983 



Pyramid 



This fascinating Goto 3 game runlinues 
to be one of our best sellers. Pyramix is 
100% machine language written 
exclusively to take advantage or all the 
power in your 128K CoCo 3. The Colors 
are brilliant, the graphics sharp, the 
action fast. Written by Jordan Tsvelkoff 
and a product of ColOrVentUre, 

The Freedom Series 

Vocal Freedom 

I've got to admit, this is one nifty 
computer program. Vocal Freedom turns 
your computer Into a digital voire 
recorder. The optional flicker'* Pic lets 
you incorporate voices or sounds that you 
record into your own BASIC or ML 
programs, This is not a synthesizer. 
Sounds are digitized directly into 
computer memory so that voices or 
sound effects sound very natural. One 
"off-the-shelf" application for Vocal 
Freedom is an automatic message minder. 
Record a message for your family into 
memory. Sel Vocal Freedom on 
automatic. When Voca! Freedom "hears" 
any noise in the room. It plays the pre- 
recorded message! Disk; operations are 
supported. YF also tests memory to take 
advantage of from 64K up to a full 
512K. Requires low cost amplifier IRS 
cat. ••277-1.008) and any microphone. 

Menial Freedom 

Would your friends be impressed if your 
computer could read their minds? Mental 
Freedom uses the techniques of 
Biofeedback to control video game action 
on the screen .Telekinesis? Yes, you 
control Hie action with yoor thoughts and 
emoiions, And, oh yes, it tilts in a 
perfectly natural voice without using a 




speech *y n t tiesiie %\ Requires Radio 
Shack's low cost Biofeedback monitor. 
Cat. *63-675. 

BASIC Freedom 

Do you eveT type in BASIC programs, 
manually? If you do, you know It ran 
be a real chore. Basic Freedom changes 
all that, it gives you a full screen •altar 
| u f I like a word processor, but for 
BASIC programs. Once loaded in, it is 
always on-line. It hides invisibly until 
you call it forth with a single keypress! 
This program is a must for programers 
or anyone who types in programs. By 
Chris Babcock and a product of 
ColorVenture, 

Lightning Series 

These three utilities give real power to 
your CoCo 3, 

Ramdisk Lightning 

This is the hest Ramdisk available. It 
lets you have up to 4 mechanical disk 
drives and 2 Ram drives on-line and is 
fully compatible witb our printer spooler 

below, 

Printer Lightning 

High capacity print spooler for CoCo 3. 

Load it and forget it — except for the 
versatility it gives you. Never wait for 
your printer again! Printer runs at high 
speed while you ruutinue to work at the 
keyboard! Will operate with any printer 
you have already hooked to your CoCo. 



Backup Lightning 

This utility requires 512K. Reads your 
mister disk once jnd then mates 
superfasi multiple disk backups on all 
your drives! No need to format bleak 
disks first! Supports 35. 40 or SO track 
drives. 

COCO Braille 

Produce standard gride 2 Braille on a 
Brother daisy wheel printer. Easy to use 
for sighted or blind user, No knowledge 
of Braille is necessary. Call for free 

sample. The raised dots produced are 
easily tourh readable by the blind. The 
print— to-braill* algorithm is robust with 




errors rarely being made — and. it has the 
ability to leant! 

Prices 

CoCo 3 only 

Mam Vis* ItgAtaiag, Vat.... SI 9,95 

Priatmr lightning Disk S 1 9.95 

Bat tup LigAtming, Diit $19.93 

Alt ttret, Bat ,.,....$4995 

Pyramix, Disk $24.95 

CoCo 1,2. or 3 

Vceal Fr+mdaa*. MM** $34.95 

Vocal Freedom Hatters Ac. ..,...,$ 14.95 
COCO BraiUm..... $6 9.9 5 

CoCo 2 or 3 only 

Mmmttt Freedom Zfcrt. $24.95 

Baste FtMda/H, Dim:.... .....$24.93 

CoCo 1 or 2 only 

TDOf„ Tie Umditk, a menu operated 
ramdisk for the CoCo 1 or 2. LOAD. 
SAVE. KILL, DIRECTORY, are all 
supported. Tape S24.95 

fDUMP, backup Undisk files to single 
tape file. Tape $14.95 

WPMliTT. Print Undiik directory. 
Tape..... $9,95 

We Ship FAST! 

Add $2,50 shipping/handling 
in USA or CANADA 
Add $5.00 to ship to other 
countries 

Dr. Preble's Programs 
6540 Outer Loop 
Louisville, KY 40228 
24 Hour Order Line 

Yisi, MasterCard. COD, Check 

sM (b02) 969-1818 
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deal of time formulating questions and 
answers, you don't want to accidentally 
dump them now. In fact, on lengthy 
files, save them throughout the formu- 
lation process. 

Save Questions to Disk 

The subroutine at Line 300 is simply 
a filename input routine. All filenames 
are assigned as YY$ in the save routine. 
VYS has three possible dispositions. 
Line 3 10 verifies if the escape symbol @ 
(CHR$[G4)) has been depressed and 
then returns the program to the main 
menu without losing the current file- 
name. Line 312 determines if YY$ equals 
fntfr. If so, it assigns the current 
filename (ZZi) as the same filename to 
be saved. Finally, if a new filename has 
been assigned, the program jumps to the 
subroutine at Line 700 to save. 

Thus when you press D, Save Ques- 
tions to Disk, you will be prompted to 
enter a filename. You then have three 
options: escape to the main menu (press 
@); assign the current filename of 
questions in buffer to the file to be saved 
and press ENTER (useful when you have 
amended or updated an old file, since 
the old filename is automatically saved); 
or save an entirely new file. This is the 
option you should use now. 

In this instance assign filename 
TE5T1 and enter. The display changes to 
advise you that TE5T1 is being saved 
and then returns to the main menu. The 
computer now identifies TE5T1 as the 
file in the buffer. When saving files, do 
not assign either extensions or disk 
designations to your filenames. The 
extension is assigned by the program 
(Line 708) in order to facilitate use of 
the File Directory subroutine. Should 
you assign either an extension or a disk 
drive designation, an error will result. 
To re-enter the program without losing 
your questions and answers, type 
GOTD100 and try again. 

Begin Questionnaire 

The questionnaire subroutine is the 
heart of the program. It will take a given 
number of questions (L) and randomly 
select one (I=RND(N)) to ask the user. 
If the response is correct, the question 
is dumped from the current buffer 
(NN=NN-1), If the response is wrong, it 
goes back into the buffer and is asked 
until the response is correct. The com- 
puter has been sped up in this routine 
(EXEC 44533.) to reduce time lapse 
between .question selection. When all 
the questions have been answered cor- 
rectly, you are returned to the main 
menu. 



A number appears in the top right- 
hand corner of the questionnaire dis- 
play. This indicates the number of 
questions left in the buffer (N) to 
answer. It will not change when given 
an incorrect response, but will decrease 
by one when given a correct response. 
If you formulated five questions, this 
number should now be five. 

At this point you can either enter a 
response (which reinforces the learning 
process) or simply press ENTER after 
you have thought about the answer. 
When ENTER is pressed, the correct 
answer is displayed and you are promp- 
ted to indicate whether your answer is 
correct (Y), incorrect (N) or if you wish 
to exit the questionnaire. If you respond 
(Y), the question on the screen is 
dumped and a new question appears. 
You will note that the number in the top 
left-hand corner is now four, indicating 
the new total of questions left to answer. 

The Y and N responses can be a little 
slow. Therefore, tiie program can re- 
spond to ENTER for a yes response or, 
for a no response, through a subroutine 
(lines 540 and 542). In this manner you 
can operate the program with one hand, 
which frees your eyes to concentrate on 
the screen. This addition does not 
appear on the screen prompt and must 
simply be remembered, 

1 have also designed an abbreviated 
version of the screen display. In the 
abbreviated version, you cannot type in 
your own response to questions, but all 
other control keys are the same. The 
abbreviated display is uncluttered and 
provides a fast review of your study 
material. To implement the abbreviated 
screen display, make the following line 
changes: Insert REM at the beginning of 
lines 515, 524 and 526. Delete REM in 
lines 520, 522 and 530. A summary of 
these REM statements is included in this 
program beginning at Line 2000. 

Add Questions to Quiz 

To add questions and answers to a 
previously formulated questionnaire, 
choose prompt E, Formulate Ques- 
tions, at the main menu. We used this 
subroutine when we first ran the pro- 
gram but now, instead of loading ques- 
tions, a new submenu appears. There 
are questions already in the buffer. This 
new display gives you three choices: 
Add Questions to Quiz, Start New Quiz 
and Return to Main Menu. 

Let's look at the second two options. 
If you press B (Start New Quiz), the 
current file will be dumped and you will 
lose all your questions and answers, I 
have included a safeguard at this point; 



you are warned that you are about to 
erase your file (GQSUB 150). If you type 
Y at the prompt, you are returned to the 
main menu. The buffer has been cleared 
and the computer now tells you there is 
no file in the buffer. You can begin your 
new quiz by pressing E. However, if at 
the warning you press N for no, you are 
returned to the main menu with your 
file intact. 

If you press C (Return to Main 
Menu), you are returned to the main 
menu with your current file intact. 

If you press A (Add Questions to 
Quiz), you are returned to the Formu- 
late Questions subroutine (GQ5UB 400). 
The number of the question you are 
asked to enter is the next ascending 
number in your file. (Once again you 
have the option of exiting to the main 
menu at any point in the process by 
pressing @.) You can now enter up to 
99 questions. When you complete this 
process, return to the main menu and 
save yuur expanded file (Option D). 
You can retain the same filename by 
pressing enter. There is no need to 
retype your current filename. 

Quit Program 

The third option on the main menu 
is Quit Program. Exit the program 
through this subroutine rather than 
using the break key or the reset button. 
I have dumped all the graphics to make 
more room for questions and answers, 
and have sped up the CoCo for faster 
manipulation of questions. Option D 
(Quit Program) returns the CoCo to its 
power-up default values. The Quit 
routine also checks to see if you have 
questions in the buffer (which you 
probably will have if you've been using 
the program to study) and gives you the 
chance to save them (Line 140). 

Load Questions 

The Load Questions subroutine is 
straightforward. If the buffer is empty, 
you will simply be prompted to type in 
a filename. However, if you have a 
previously loaded or created file in the 
buffer, you will be warned that you are 
about to dump your questions and must 
respond either yes or no before contin- 
uing. 

Should you enter a filename that does 
not exist, you will get an NE error in 
Line 806. Simply type GDTO100 to 
restore the main menu and try again, 
Check existing filenames by going to the 
file directory before loading. 

Print, View or Amend 

When you press F from the main 
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menu, you have the choice to print (to 
your DMP-tOO printer), view (to 
screen) or amend the questions in the 
current file. Line 627, CHRI[31), ena- 
bles the large print mode for file iden- 
tification at the top of your printout. 
Line 630, CHRS[30), disables the large 
print mode. The only other printer 
control code used is CHR$[10), which 
prints out the current line and inserts a 
linefeed. This subroutine is set to print 
out the questions and answers at the 
fastest speed the DMP-100 can handle 
(1200 Baud). I did not use a printer 
control code to do this. Rather, I used 
the speedup poke in Line 625. The hard 
copy printout of the questionnaire is 
useful for reviewing questions in those 
hrief moments away from the CoCo. 

The View and Amend subroutines are 
operated from the same display. When 
you enter the subroutine, the display 
gives the name of the file you see and 
will show you each question and 
answer, one at a time, in their original 



order. Advance to the next question by 
pressing ENTER or escape the routine by 
pressing @. 

If you wish to change, correct, or 
otherwise amend a question, press C. 
The screen will display the current 
question and ask you to enter the new 
or amended version. If there is no 
change, press enter and the old ques- 
tion will be retained. If you wish to 
amend the question, type in the new one 
and enter. Now the old answer will be 
displayed, and you can either change or 
leave it as it is. When you press ENTER 
at this point, you are returned to the 
question /answer view display with the 
question you just changed on the screen. 
When you get to the end of the ques- 
tions, you are returned to the main 
menu. 

File Directory 

The final selection on the main menu 
is File Directory. This subroutine will 
list all files on the disk with the exten- 



sion , DRT, This extension is automati- 
cally assigned to your files in the Save 
routine (Line 708). The directory dis- 
play lists 20 files on each display page. 
Advance through the pages by pressing 
any key, until all the filenames have 
been viewed. Once ail of the files have 
been viewed, you are returned to the 
main menu. This routine reduces the 
occurrence of NE errors and the possi- 
bility of overwriting a file by assigning 
the same filename to a new file. 

One final comment: A small Save 
routine is hidden in Line 9. 1 insert this 
or a similar line in all my BASIC pro- 
grams. Once you have begun working 
on your program, you can save both 
what you've done and a backup to it by 
typing GOTO 3. 

{Questions or comments regarding 
this program may be directed to the 
author at P. O. Box 8092, Bonnyville. 
A B, Canada T9N2J4. Please enclose an 
SASE when requesting a reply.) D 
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...139 655 179 

150 158 720 93 

230 156 920 116 

410 ......171 1000 229 

515 .......34 2005 33 

550 31 END 120 

630 215 
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The listing: 5UPRQUIZ 



' COPYRIGHT 19 8 9 

1 'SUPER QUIZ BY: 

2 'DOUGLAS W. GILES 

3 '5 30 COUNTRY KNOLL 

4 '3093 PEMBINA HIGHWAY 

5 'WINNIPEG, MANITOBA 

6 'CANADA R3T 4R6 

8 GOTO 10 

9 CLS0:VERIF¥ON:PRINT@228," savin 
g"CHR$(12 8) " QUIZ/RDY;0" ? :SAVE"Q 
UIZ/RDY:0" :PRINT@292 , n saving"CHR 
$(128) " QUIZ/BKP:0 H ; :SAVE"QUIZ/B 
KP^'^CLSlPRINT^^" PROGRAM AN 
D BACKUP ARE SAVED ": PRINT : PRINT 
: PRINT: END 

10 'DIMENSION ARRAYS & STARTUP 

GRAPHICS 
12 POKE65495,0:GOTO900 
13- POKE65494,0 
14 SCREENS, 0:CLS 3 : PMODE0 : PCLEAR1 



: CLEAR18J30J3 

16 DIM W$(99) ,D$(99) ,R{99) 

18 D$=CHR$ (125) :E$=-CHR$(12 8) :F$= 

STRING$ [1$ , 128) :G$=STRING$ (5, 128 

) :AA$=STRING$(32,45) 

1)3)3 '**** startup menu **** 

1)32 CLS(3) : SOUND 175,1 

lp6 PRINT§74,"select"E$"one"; 

108 PRINT@162,E$ M a ,, D$E$» , load' , E$" 

questions n £$ i 

110 PRINT@194 ,E$ ,, b"D$E$ ,l begin H E$ 

"questionnaire , 'G$ ? 

112 PRINT@226,E$ ,, C 1, D$E$ ,, (TUit , »E$" 

programme ,f F$ ; 

114 PRINT@258,E$ M d ,, D$E$"save"E$" 

questions"E$"to l »E$"disk"E$E$; 

116 PRINT@290,E$ ,1 e ,, D$E$"formulat 

e"E$ r, questions"G$ ; 

118 PRINT@322,E$ ,, f"D$E$ ,, print ,i E$ 

"view ,, E$"or"E$"amend"G$; 

120 PRINT@354,E$"g"D$E$'»file ,r E$" 

directory"F$ ; 

122 IFZZ$= ,M, THENZZ$="NO NAME" 

124 IF ZZ$="NO NAME"ANDY¥$<>» M1 TH 

ENZZ$=YY$ 

126 PRINT@454 , "this"E$"is"E$ ,1 f il 

e»;E$E$ZZS; 

128 U$=INKEY$:IF U$=""THEN 128 

130 U=ASC(U$) 

132 IF U<65 OR U>71 THEN 128 

134 SOUND 190,1: ON U-64 GOTO 200 

, 500 , 140 , 300 , 400 , 600 , 1000 

140 IF N>0 THEN GOSUB 150 ELSE 1 
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142 CLEAR200:PCLEAR4:PMODE2,1:CL 

S:POKE65494 ,J0! CLOSE:END 

150 '**BUFFER DUMP FAILSAFE** 
152 IF N>0 THEN 154 ELSE RETURN 
154 CLS;PRINT@197, "YOU ARE ABOUT 

TO ERASE" :PRINT@225, "QUESTIONS 
CURRENTLY IN BUFFER" : PRINT@2 5S , " 
DO YOU STILL WISH TO PROCEED" : PR 
INT@300,"yES/nO" 
15 6 SOUND 15$, 2 

158 CLS0:PRINT@197, "you"E$"are"E 
$"about"E$"to"E$"erase"; :PRINT§2 
25, ,l guestions H E$"currently"E$"in 
"E$"buffer" ; :PRINT§258, "do"E$"yo 
u"E$ "still "ES"wish"E$"to"E$"proc 
eed"; :PRINT@300, "Yes"CHR$ ( 124 ) "N 
o"; 

160 SOUND 200,2 

162 A$=INKEY$:IF A$-"Y" THEN RET 
URN 

164 IF A$="N" THEN 100 ELSE 154 
200 ' **nenu for load questions** 
202 IF N>0 THEN GOSUB 150 ELSE 2 
16 

216 'DRIVE1 

218 CLS: PRINTS 2 2 5, "TO LOAD QUEST 
IONS ENTER FILE*"; 

220 PRINTS 2 94, "OR [#] FOR MAIN M 
ENU" 

2 22 FORX=1TO4:SOUND100,2:SOUND15 
0,2: NEXT 

2 24 PRINT@362,"=> » ; ; LINEINPUTZZ 
$ 

225 IF 2Z$=""THEN216 

226 IF ZZ$=CHR$(64)THENZZ$="";GO 
T02 2 9 

228 GOSUB800 

229 'DRIVE0 
2 30 GOTO 100 

300 '**menu to save questions** 

301 'DRIVE 1 

302 CLS:PRINT@71,"T0 SAVE QUESTI 
ONS" 

304 PRINT§136, "ENTER FILE NAME" 

306 PRINT@ 19 8, "OR [ | ] FOR MAIN M 
ENU" 

307 FORX=1TO4:SOUND100,2:SOUND15 
0,2: NEXT 

308 PRINTS 300, ""; : LINEINPUTYY$ 
310 IF YY$=CHR$(64)THENYY$=ZZ$:G 
0TO315 

312 IFYY$=""THENYY$=ZZ$ 

314 GOSUB700 

315 'DRIVE0 

316 GOTO 100 

40^ i*** input quest/answers *** 

402 'IF N>0THEN4 50 

404 CLS:PRINT@4,"PR£SS [§j FOR M 



AIN MENU" 

406 N=N+1 

408 PRINT"ENTER QUESTION"N" : " : LI 

NEINPUTW$(N) :SOUND22 5,l 

410 IF W$(N)=CHR$(64)THEN N=N-1: 

GOTO100 

412 PRINT: PRINT "ENTER ANSWER: M :L 

INEINPUTD$ (N) : SOUND2 25 , 1 

414 CLS 

416 IF N<99 THEN 404 

418 CLS : PRINT@2 25 , "QUESTION/ ANSW 

ER BUFFER IS FULL" 

4 20 FRINT@2 8 9, "SAVE THESE QUESTI 

ONS AND BEGIN" 

4 22 PRINTS 3 64, "NEW QUIZ" 

424 FOR QX=1TO1500:NEXTQX:GOTO10 



450 'add to existing quiz 

452 CLS3 

4 54 PRINT(?74 , "select"E$ J "one" ; 

456 PRINT@162,"a"D$E$"add"E$"que 

stions"ES ,, to"E$"quiz"E$E$E$; 

458 PRINT@194, "b"D$E$"start"E$"n 

ew"E$"quiz"F$; 

460 PRINT@226, "c"D$E$ "return"E$" 

to' r E$"main"E$"menu"G$,- 

4 62 U$=INKEY$:IFU$=""THEN462 

4 64 U=ASC(US) 

466 IF U<65 OR U>67 THEN 462 

468 SOUND200 / 1:ON U-64 GOTO 414 

480,100 

480 GOSUB150:GOTO14 

500 • ***** questionnaire ***** 

502 CLS:POKE6 54 9 5,0 

504 IFN=0THEN100 

506 NN-N 

508 FORL=lTON 

510 I=RND(N) 

512 IFR(I)=1 THEN 510 

514 CLS 

515 PRINT"QUESTION: " 

516 PRINT@28,NN 

518 PRINT@3 2,AA$;:PRINTW$(I) : PRI 

NTAA$;:IF W$(I)=" » THEN A$="Y" • 

GOTO540 

520 REM A$«INKEY$:IF A$="»THEN 5 

20 

522 REM SOUND 200,1 

524 PRINT: PRI NT "YOUR RESPONSE:": 

LINEINPUTA$ : SOUND 2 2 5,1 

526 PRINT"THE CORRECT ANSWER IS: 
ii 

52 8 PRINTDS(I) 

5 30 REM PRINTAAS 

532 PRINT@416,"IS YOUR ANSWER RI 

GHT (yES OR nO) " ; 

534 PRINT (§4 5 2, "ENTER [@] FOR MAI 

N MENU" 

536 A$=INKEY$:IFA$=""THENS3 6 

538 IF AS=CHR$(64)THEN GOSUB 668 
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COCQ3'S MISSING LINK: 

BIG BASIC" 

BASIC USERS GET FULL POWER OF MEMORY MANAGEMENT IN WINDOWS! 

Now you can access up to 472K of memory in a 5 12K CoCo or up to 92K in a 128K 
machine with any mix. of programs and/or data , At last, you can do sizable basic 
programming with a CoCo 3. (Also offers simplified memory management for ML. 
programmers.) 

Magically fast, executes one big program or database in basic; or up to 58 separate 
basic programs running at once from computer memory in up to 58 separate 
windows! Saves programs or variables with their currently running parameters and 
loads back that way as if you never left the program. 

Chain in unlimited sized programs or data from disk(s) without erasing existing pro- 
gramming or variables. Also works with the RGB-DOS Hard Disk system. 

* Modifies your basic operating system in some 70 



3 new simple basic words to create the power 

Provides for variable exchange between 

windows. 

Programs can be saved over multiple disks or 

use our BIG DISK Utility. (See below) 



locations but does not occupy user memory. 
Includes 7 Demo Programs and Manual. 
Disk use only; any version RS-DOS. 
ONLY $39.95 U.S. or $46.35 CDN. + $2.50 S & H 



Ontario residents add 8% PST. 



"BIG RAMDI$K"(512kCoCo3V.2.0or V.2.1) 

* Copy or backup your programs 01 data to "BIG R AMDISK 
and gel the speed of program/data saving or loading to an "in 
memory" device. ("COPYDISK" Utility included.) 

■ Great for use with all other programs on this page and 
most commercial software. 

• You can install, re install, formal and reformat from direct 
mode or from a program without erasing programming or 
variables. It's in machine language, does not occupy user 
memory, but can be user located elsewhere if needed. 



• Your choice of one big 158 granule ramdisk. (80 tracks-36Qk) 
or two 68 or 78 granule ramdisks (35-40 tracks to 360k total), 
depending on your DOS. (i.e. RS DOS, "BIG DISK", 
"DOUBLE40", etc.) 

■ Ramdisk files and directory do not erase with a reset colds tart 
(ALT/CTRL), and are preserved if a program crashes. This 
lets you use some programs that need a Coldstart to exit. 

• "BIG RAMDISK" with "BIG DISK" or "DOUBLE40"'(see 
below) & two double-sided drives => 1 MEG, on line, 

ONLY $12.95 US or $14.95 CDN + $2.50 S & H. 

On i. Residents add 8& PST 



For any CoCo (at least 64K) with 1.1 or 2.1 Disk Extended Basic: 
"UTILITIES PACKAGE" 

6 HANDY M.L. RESIDENT UTILITIES FOR BASIC 



"BIG DISK" 

"DOUBLE40" 
"CONVERT/DISK 1 



Makes computer sec double-sided drives 
as one 360K (80tk) drive; 158 granules. 

■ Sets drives for 40 tracks each side. 



Formats 40 tracks on each side of a 
disk without disturbing the first 35. 
Instandv doubles all your present 

storage. 

"QUIKDRIV/6MS" * Sets fast drive stepping rate. 

"QUIKDRIV/30M * Fast drive shut off. 

"SET FEED" • Sets line spacing for printouts. 

Only $17.95 U.S. or $20.80 CDN. + $2.50 S & H. 

Ont. Residents add 8% PST. 



"MEMORY MASTER" 

OUR FAVORITE PROGRAMMING TOOL 

Scan, Edit, Copy, Printout any memory in your 
computer or on disk. Fix disks. 

Fast entry of M.L. Listings. 

Dual Windows ! Run two Basic Programs at 

once ! 

Chain in large running programs and variables 

from disk without restarting the existing 

program in the computer. 

Includes Demo Program and Manual. 



$24.95 U.S. or $28.95 CDN. +$2.50 S & II. 

RAINBOW Ont Residents add it, PST 

CF-MTifiCAtiQfc 



DANOSOFT 

Box 124, Station "A" 
Mississauga, Ontario L5A 2Z7 



10% Discount 

on purchase of 
3 or more items 
at the same time. 



Order by Phone or Mail 

(416) 897-0121 
Shipped Airmail Same Day 



wra- 



: POKE654 94 , : GOTO100 

540 IF A$="Y" OR A$=CHR$(13) THE 

N R(I)=l;SOUND225, 1 : NN=NN-1 : GOTO 

546 

542 IF A$="N" OR A$=" ; " THEN L=L 

-1 : SOUND150 , 1 : G0TO54 6 

544 GOTO 536 

54 6 NEXT L 

548 GOSUB668 

550 CLS:POKE65494, 0:PRINT@228, "E 

ND OF QUESTIONNAIRE" 

552 PRINTS 3 2 3, "MAKE ANOTHER SELE 

CTION" 

554 FORX=1TO1000:NEXTX:GOTO100 

600 ' *mena for view/print/ amend* 

601 IF N<1 THEN 716 

603 CLS0 

604 PRINT@107, "select"E$"one" ; 

605 PRINT@262 , "Print l 'E$ ,, View"E$' 1 
or"E$ "Amend"; 

606 U$=INKEY$:IFU$=""THEN606 

607 IF U$= W V M OR U$="A"THEN640 

608 IF U$="P"THEN620 

609 GOTO 606 

620 'print q/a to printer 

621 CLS0:SOUND150,2:PRINT@292, "p 
ress"E$"any M E$"key"E$"to"E$"cont 
inue" ,* 

622 PRINT@228, "set"E$"printer"E$ 
"to"E$"baud ,, E$"1200" ; 

623 EXEC 44539 

624 CLS0:PRINT@231, "printing-"E$" 
hard"E$"coDy" ; 

625 POKE 654 95,0 

62 6 F0RX=1T05: PRINTS -2 :NEXTX 

627 PRINT#-2,CHR$ (31) "QUESTIONS 
AND ANSWERS FOR FILE "2 2$ 

628 F0RX=1T05:PRINT#-2:NEXTX 

62 9 FOR I=1T0N 

630 PRINT#-2,CHR$(30)TAB(35}"QUE 
STION #»i" :» 

631 PRINT#-2,CHR$(10) »Q: ";WS(I) 

632 PRINT#-2,CHR$(10)CHR$ (10) "A: 

u ;D$(i) 

63 3 PRINTf-2,CHR$(10)CHR$(10) 
63 4 NEXTI 

635 F0RX=1T05:PRINT#-2:NEXTX 

63 6 POKE 65494, 01GOTO100 

640 ' view/amend file 

641 FORI=lTON 

64 2 IF W$(I)=W$(0)THEN100 

64 3 CLS:PRINT@0,G$ M this M E$ ,, is"E$ 
"file"E$CHR$(12 3)ZZ$D$;STRING$(3 
9,128) ; 

644 PRINT§64, "QUESTION #"I":» 
64 5 PRINT :PRINT M Q: "W$(I) 

64 6 PRINT: PRINT"A; "D$(I) 

647,PRINTAA$;" TYPE <ENTER> FOR 
NEXT QUESTION": PRINT" <C> TO CHA 



NGE OR <@> TO ESCAPE" 
64 8 SOUND 200,2 

649 K$=INKEY$:IFK$=»"THEN649 

650 IF K$="<a»'THEN100 

651 IF K$="C» THEN GOSUB 660: GOT 
0643 

652 IF K$=CHR$(13) THEN 654 

653 GOTO 649 

654 CLS:NEXT 

655 GOTO100 

660 'amend file entry 

661 CLS : SOUND200 , 2 : SOUND150 , 2 : PR 
INT"OLD QUESTION: ":PRINTW$ (I) 

662 PRINT: PRINT"TYPE NEW QUESTIO 
N AND <ENTER> OR PRESS <ENTER> 

IF NO CHANGE" : PRINT: PRINT"«=>" ; : 
LINEINPUTNW$ 

663 CLS :PRINT"OLD ANSWER: ": PRINT 
D$(I) 

664 SOUND200, 2 : SOUND150 , 2 : PRINT: 
PRINT" TYPE NEW ANSWER AND <ENTE 
R> OR PRESS <ENTER> IF NO CHAN 
GE" : PRINT : PRINT"=>" ; : LINEINPUTND 
$ 

665 IF NW$o""THEN W$ (I ) =NW$ :NW$ 
— ii ii 

666 IF ND$o""THEN D$ (1) =ND$ : ND$ 
—ii ii 

6 67 RETURN 

6 68 FORL=1TON:R(L)=0:NEXT:RETURN 
700 '**** save quiz **** 

702 CLS3:SOUND200,2:SOUND150,2 

704 PRINT@228, "I JLE <"YY$"> NOW 

SAVING"; 

706 IF N<1THEN716 

708 OPEN"0",#l,YY$-r"/DAT" 

710 WRITE #1,N 

712 F0RI>1T0N:WRITE#1 / W$(L) ,D$(L 

) :NEXT 

714 IFN>0THEN7 2 4 

716 CLS: PRINT (3 2 2 4," THERE ARE NO 

QUESTIONS IN BUFFER" 

718 PRINK? 293, "MAKE ANOTHER SELE 
CTION" 

719 YY$^"NO NAME" 

7 20 FORX=1TO15:SOUND150,2:SOUND2 
00 , 2 : NEXTX 

722 CLOSEil:GOTO100 

724 CLOSE^l 

72 6 CLS: RETURN 

800 ***** load quiz **** 

802 CLS3:SOUND200,2:SOUND150,2 

804 PRINTS 228, "FILE <"ZZ$ ,r > NOW 

LOADING" ! 

806 OPEN"I",#l,ZZ$+ , '/DAT M 

808 INPUT #1,N 

810 F0RL»1T0N:INPUT#1,W$(L) ,D$(L 

) : NEXT 

812 CL0SE#1 
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814 CLS; RETURN 

900 '**graphics data & display** 

902 CLEAR 200 

904 SOUND 100,2 

9j3 6 PCLEAR4 : PMODE 4,1: PCLS : SCREE 

Nl,l 

908 FOR 1= 2 TO 110 STEP 2 

910 CIRCLE(129,96) ,1 

512 NEXT I 

914 SOUND 100,2 

916 FOR X=2 TO 120 STEP 1.1 

918 CIRCLE (128, 96) ,X, , .2 

920 NEXT X 

922 'GRAPHIC LETTERING 

924 AA$=" SUPER QUIZ" 

926 DRAW"S8;C0;BM60 J 99" 

932 FOR XX=1 TO LEN(AA$) 

934 RESTORE :LL=0 

93 6 READ LL$,CC$ 

938 IF LL$=MID$(AA$,XX,1)THEN DR 
AW CC$:GOT09 4 2 

940 LL=LL+1:IF LL<4 8 THEN 93 6 
942 SOUND 200, 1 : FORX=1TO10 :NEXTX 
: SOUND 200,1:NEXTXX 

94 4 DATA " ", "BM+7, 0'* 

946 DATA"E" , "NR4 ;U3 ;NR2 ;U3 ,*R4 ;BM 

+3, +6" 

948 DATA M I","BM+1,0;R1;NR1;U6;NL 

l;Rl;BM+4,+6 M 

950 DATA"P'\ "U6;R3;F1;D1;G1;L3;B 

M+7 , 3 " 

952 DATA "Q" , "BM+1,0 f HI ;U4 ; El ?R2 

f Fl J D3 ; Gl ; NH1 ; NF1 ; Gl ; LI ; BM+6 , " 

954 DATA"R","U6;R3;F1;D1;G1;L2;N 

Ll;F3;BM+3,0" 

956 DATA"S» , "BM+0 , -1 ; Fl ?R2 ;E1 ;U1 

; HI ; L2 ; Hi ;U1 ; El ; R2 ; Fl ; BM+3 , +5 " 

9 58 DATA"U H ,"BM+0 / -lfNU5;Fl;R2;E 

l;U5;BM+3,6" 

9 60 DATA"Z" , "NR4 ;U1 ;E4 ;U1;L4 ;BM+ 

7,6" 

9 70 FORX=1TO2500: NEXT: GOTO 13 

1000 '**** file directory **** 

1002 QQ=0 : CLS0 : PRINT@9 , "f ile' r E$" 

directory" ;G$E$E$E$E$ 

1004 PRINT@3 2,STRING${3 2,12 8) ■; 

1006 FORGG=3T011 

1007 DSKI$ 0,17,GG,A$,B$ 

1008 ' DSKI$ 1,17,GG, A$ , B$ 
1010 C$=A$+LEFT$(B$,127) 
1012 NAM$(0}=LEFT$(C$,8) 
1014 EXT$(0)=MID$(C$,9,3) 
1016 FOR HH=1T07 

1018 NAM$(HH)=MID$(C$,HH*32+1,8) 

1020 EXT$(HH)=MID$(C$,9+HH*32,3) 

102 2 NEXT HH 

1024 FOR HH=0TO7 

1026 IF EXT${HH)="DAT"AND LEFT$ ( 

NAK$ (HH) , 1) <>CHR$ (0) THEN PRINTNA 

MS (HH) , ; :QQ=QQ+1: IFQQ>19THENQQ=0 

:GOSUB1032 

1028 NEXT HH 



1030 NEXT GG:GO£UB1032:GOTO100 

1032 PRINT§451, "press"E$"any"E$ M 

key"E$"to 1, E$"continue" ; 

1034 EXEC 44539 : CLS0 : RETURN 

SUMMARY OF REM STATEMENTS 
************************* 

* BEGIN WITH REM YES/NO * 

FULL OR SHORT DISPLAY 
* * 

LINE# * FULL * SHORT 
. __ *___.___* 



2J300 
2002 

2004 

2005 
2006 
2008 
2010 
2012 
2014 
2016 
2018 
2020 
2022 
2023 
2024 
2025 
2026 
2028 
2030 
2032 
2034 
2036 
2038 
2040 
2042 



515 
520 
522 
524 
526 
530 



* 
* 
* 
* 
* 



NO 
YES 

YES 

NO 

NO 

YES 



YES 

NO 

NO 

YES 

YES 

NO 



* 
-* 

* 

• * 
* 

* 
* 
* 
* 



************************* 



ONE 



OR TWO DISK DRIVES* 
* * * 

LINE# *1 DSK * 2 DSKS 

* *_ 



216 
229 
301 
315 
1007 
1008 



* 
* 
* 
* 

* 
* 



YES 

YES 

YES 

YES 

NO 

YES 



NO 
NO 
NO 
NO 

YES 
NO 



************************* 



"Simply Better" Word Processor 

'RUN 2 INTERACTING WORD PROCESSORS SIMULTANEOUSLY ' 

PERFORM MAIL-MERGES * CREATE INDEXES ' CREATE TABLE OF 

CONTENTS " PRINT-FILL FORMS ' DISPLAYS FONTS IN SELECTED 

COLORS * DISPLAYS UNDERLINING * PRINT SPOOLING * AUTO SAVES 

FILES ' SERIAL/PARALLEL OUTPUT * PRINT;SAVE BLOCKS OF TEXT .' 

HEARING IMPAIRED MODE * UP TO .WOK OF TEXT STORAGE ' SORT 

SECTIONS OF TEXT ' MANY MORE FEATURES * 

". . , An excellent choice at an 
/^^ unbelievable price." 
*$*& — Rainbow Magazine 

W* Simply Better Version 2.0 . . . $34.95 

SEE REVIEW AND ARTICLE IN 
APRIL '89 RAINBOW, SEE WHY . . . 

Wfien It Comes To Word Processing, 

we're... "Simply Better" 

Call for a Free Brochure 
~sp^AII Orders, Call... 1-800-248-8420 






For Color Computer 3 only. Please add $3 S/H 



Simply Better Software technical assistance 

P.O. Box 20726 9 AM -5 PM 

Portland, OR 97220 (503)254-7225 

In Australia (07) 341906! 
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W i sh i ng W ol l 



If you have an idea for the "Wishing 
We/1." submit it to Fred do the rain- 
bow. Remember, keep your ideas spe- 
cific, and don' t forget this is basic. All 
programs resulting from your wishes 
are for your use, but remain the prop- 
erty of the author. 



Since most of the programs in the last 
few months have been educational pro- 
grams, it's time to answer the requests of 
those who have been asking for games. 
(After all, isn't thai really why we all bought 
computers?) 

To achieve this end and to help me 
through a rather busy part of the year. I 
decided to go back and modernize one of 
my very first games, Meteor Storm. (Actu- 
ally the task was bigger than I anticipated.) 

Adios 1MB? 

Back in the early '80s when the Color 
Computer first came out, 1 started a small 
software writing venture called Illustrated 
Memory Banks, or 1MB. The first game I 
wrote in basic was called Meteor Storm, 
and it was designed to be a variation on the 
asteroids-type game. 

However, Version 1 of Meteor Storm 
was very slow, even with the high-speed 
poke. It had no onscreen scoring and had a 
lengthy listing. After selling a few copies, 
I revised the program. Version 2 was a little 
faster and added a long onscreen scoring 
routine. Still the program moved at a snail's 
pace. (Do you remember Snail?) 

I had not touched Meteor Storm since 
late 1981 and the subroutines looked like a 
real jungle once I took out my old listing. 
(Now I remember why it is a good idea to 
keep a version with remarks.) As I sus- 
pected, the game was still painfully slow, 
but over the years I've learned a few tricks 
to speed things up. 

First I cut the scoring subroutine down 
to less than 10 percent of what it was. This 
helps speed things up greatly. Then I 
switched from the original pmqde a down to 
pmode 0. There is a loss of the artifact 



Fred Scerho is a special needs instructor 
for the North Adams Public Schools in 
North Adams, Massachusetts, He holds a 
master's in education and has published 
some of the first software available for the 
Color Computer through his software firm. 
Illustrated Memory Banks. 
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Something old and 
something new 



Meteor 
Storm 



3 



By Fred B. Scerbo 

Rainbow Contributing Editor 



colors, but what is picked up in speed more 
than makes up for that. By going to pmode 
0, 1 could use the pcopy command to gel a 
flicker-free animation. I no longer needed 
to unDRAW each meteor as it grew in size. 

Add to that the 
removal of some 
needless subroutines 
by rewriting in 
straight code, and you 
end up with the ver- 
sion listed in this ar- 
ticle — almost half 
the length of the origi- 
nal. It is now twiceas 
fast and is relatively 
easy to type in. You 
can still add, some- 
where in the listing, a 
high-speed 

POKE65495,0 (or 
POKE654 97,0 if you 

have a CoCo 3), 
However, don't do 
this until after you 
have saved a copy. 

1 still believe the 
best way to under- 
stand Extended Color 
basic is by typing in 
someone else's pro- 
gram. The short list- 
ing included with this 
article fits the bill 
quite nicely. 



This game is well-suited to the very 
young, yet older persons can still enjoy it by 
using a tougher difficulty level (there are 
three levels). Upon running the game, se- 
lect Level 1 , 2 or 3 by pressing the appro- 
priate number. You then see a star field 
with approaching meteors. Use the right 
joystick and fire button (not ihe ATARI 
kind) to take a blast at the target. You'll 
burn away part of the surface but must hit 
the meteor at a certain pressure point to turn 
it into dust. If it gets too close, you take a 
hit. Five hits and you are dead. 

The more advanced levels burn away a 
smaller part of the meteor. After a while 
you get the hang of just where to hit the 
moving targets. After taking five hits, press 
ENTER to restart the game. That's all there 
is to it. 

Conclusion 

After looking at the results, 1 concluded 
that Me tear Storm, even in its earliest form, 
is a nice little game. If some of you like 
these results, I may actually update a few 
more old classics since they are not avail 
able anywhere. Maybe we can even see 
some high scores listed on the scoreboard. 

Let me know what you think. In the 
meantime 1 am working on completely new 
material for upcoming issues. □ 















y 








50 221 260 68 

90 105 310 101 








150 ...117 END 167 

195 197 


The listing: METEOR3 

1 REM*************************"* 

2 REM* METEOR STORM V.3 * 

3 REM* BY FRED B. SCERBO * 

4 REM* 60 HARDING AVENUE * 

5 REM* NORTH ADAMS, MA 012 4 7 * 

6 REM* COPYRIGHT (C) 1989 * 

7 REM************************** 
10 PMODE4,1:PCLS0:CLEAR500 
15 CLS0:PRINTSTRING$ (32, 188) STRI 
NG$ (32,204) f 

20 FORI=lTO 256 : READ A:PRINTCHR 
$ (A+128) ; :NEXT 

25 PRINTSTRING$(32,195}STRING$(3 
2,179); 
30 PRINT@420," BY FRED B.SCER 
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BO 

35 PRINT@452, " COPYRIGHT (C) 1 

98 9 

40 PRINT@4 84," SELECT LEVEL (1 

-3} 

4b DATA6I, 60, 59, ,49, 62, 61, 56, 61, 

60, 60, 61, 53,60, 60,62,60,61,52, 62 

, 60, 60, 58, 62, 60, 60, 61,52, 62, 60,6 

0,61 

50 DATA53, , 52 , 59, 62 , , 53, , 53, 51, 5 

0,, , ,,58, , , ,59,51,, ,58, ,,53,48,5 

9,51,51,55 

DO D /^ -L /^ j*j, , , j £L , ,,jj, /■_■■.// , , , , , 3 o 

,, ,, 58,48,, ,58, ,,53,48,58,53,51, 

60 DATA55, 50, , , , , 55, 50, 55, 51, 51, 

55, ,,49, 59, ,,49, 59, 51, 51, 58, 59, 5 

1,51,55,49,59,48,52,59 

65 DATA67, 67, 67, 67, 67, 65, 67, 67, 6 

7,67,67,65,67,67,67,6 6,67,67,67, 

67,65,67, 67,, 65, 67 ,67, ,33,35,35, 

35 

70 DATA74, , , , 68, 68, , ,74, , 68, 69, , 

,,74, 69 r 64, ,6 9, ,74, 68, 75, 78,, 74, 

, 36, , , 37 

75 DATA7 6,7 6,7 6,76,77, , , ,74, ,,69 

,, ,,7 4, 69,76,78,76, ,7 4,, 68, , ,74, 

,,,44,45 

80 DATA75, 67, 67, 67,71, 64,, 65,75, 

,, 69,67, 67, 67,7 4,71,6 6,68,67,65, 

75, ,,,65,75, ,37,35,35,39 

85 DIMN$ (9) :FORI=0TO9:READN$ (I) : 

NEXT 

90 DATA BR2U5R3D5NL3,BR4NU5BR,BR 

2U3R3U2NL3BD5NL3,BR2R3U3HL2U2NL3 

BD5,BR2BU3NU2R3U2D5,BR2R3U3L3U2R 

3BD5 , BR2U5NR3D2R3D3NL3 , BR2BU4UR3 

D5,BR2U5R3D2NL3D3NL3,BR2BU3NR3U2 

R3D5 

95 XA$="NFUFDLNHGHUENFRD2ULND2GL 

NENU3HNEUENF2R2NG2F" : XB$="NU2NEN 

HND2FNRHNGL3EREFDFGLHGHUR2GLDFNE 

RNU2NERE":XCS="NU2NL2NDNHNGNF2NE 

R2NHNUNENR2NFNGD2E2HLHLG2FRFR":G 

OTO110 

100 X= (JOYSTK(0)+6) *4 :Y=(JOYSTK( 

1)+14) *2: RETURN 

105 S(1)=0:S(2)=0:S{3)=0 

110 QB$="C0BRNU5RU5RD5RU5RD5RU5R 

NL4D2NL4D3L6C1" 

115 GS=0:PT=0 

120 SL$=INKEY$:IF SL$="1 "THEN125 

EL5EIF SL$="2"THEN130ELSEIF SL$= 

"3"THEN135ELSE120 

125 UK=6:GOTO140 

130 UK=4:GOTO140 

135 UK-2:GOTO140 

140 CLS0:PMODE0,3:PCLS0;SCREEN0, 

1 

145 0=RND (71) +55: J=90 

150 W=RND (144) +56 :V=30 

155 M=RND (50) +150 : K=100:FORT=1TO 

120:A=RND{256) :B=RND(168) :PSET(A 
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BACK ISSUES STILL AVAILABLE 

Have you explored the wealth of informa- 
tion in our past issues? From our very first, 
four-page issue to many with more than 300 
pages of material, it's all just for CoCo users 
— a great way to expand your library! 

A WORLD OF INFO AT A BARGAIN PRICE 

All back issues sell for the single issue 
cover price. In addition, there is a $3.50 
charge for the first issue, plus 50 cents for 
each additional issue for postage and han- 
dling if sent by United Parcel Service. There 
is a $5 charge for the first issue, plus a $1 
charge for each additional issue on orders 
sent by U.S. Mail. UPS will not deliver to a 
post office box or to another country. 

MOST ISSUES STILL AVAILABLE 

Issues July 1981 through June 1982 are 
available on white paper in a reprint form. All 
others are in regular magazine form. VISA, 
MasterCard and American Express ac- 
cepted. Kentucky residents please add 5 
percent state sales tax. I n order to hold down 
costs, we do not bill, and no C.O.D. orders 
are accepted- 
Due to heavy demand, we suggest you 
order the back issues you want now while 
supplies last 

To check availability and order, review and 
fill out the form on the next page and mail 
it with your payment to: 

THE RAINBOW 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
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BACK ISSUE ORDER FORM 

(See overleaf for instructions.) 

Please send me the following back issues: 



MONTWYEAR 






MONTH/YEAR 








VOLUME 1 








VOLUME S 






JUL 31 


Premier Issue 


$2-00 


J 


AUG 86 


Games 


£3-95 


J 


AUG 61 




$2.00 


3 


SEP 35 


Education 


£3.95 


I 


SEP 81 


Educalion 


$2.00 


j 


OCT 86 


Graphics 


$3.95 


■J 


NOV 81 




$2.00 


-j 


NOVB6 


Data Comm 


$3.95 


J 


DEC 81 


Holiday 


$2.00 


j 


DECB6 


Holiday 


$3.95 


-1 


FEB 82 




$2,00 


-I 


JAN 87 


Beginners 


$3,95 


J 










FEB 87 


unities 


$3.95 


J 




VOLUME 2 






MAR 87 


Business 


$3,95 


□ 


JUN83 


Printers 


$2.95 


j 


APR 87 


Home Help 


$3.95 


J 










MAYS/ 


Printer 


$3.95 


J 




VOLUME 3 






JUN87 


Music 


$3.95 


J 


AUG 83 


Games 


$2.95 


J 


JUL 87 


Anniversary 


$3.95 


J 


SEP S3 


Education 


$2,95 


j 










OCT S3 


Graphics 


$3 95 


D 




VOLUME 7 






MAR 84 


Business 


$3.95 


J 


AUG 67 


Games 


$3,95 


J 


APRg4 


Gaming 


$3,95 


J 


SEP 87 


Education 


S3.05 


-I 


MAY 84 


Printer 


S395 


J 


OCT 87 


Graphics 


$3 95 


j 


JUN34 


Music 


$3.95 


J 


NOV 37 


Data Comm. 


$3.95 


1 


JUL 84 


Anniversary 


£3.95 


J 


DEC 87 


Holiday 


$3,95 


j 










JAN 88 


Beginners 


$3.95 


J 




VOLUME 4 






FEB 86 


Utilities 


$3.95 


J 


AUG 84 


Games 


£3,35 


J 


MAR 88 


Business 


$3.95 


1 


SEP 84 


Education 


$3.95 


J 


APR 38 


Home Help 


$3.95 


_i 


OCT 84 


Graphics 


£3.95 


_l 


MAY 88 


Primer 


£3.95 


J 


NOV 84 


Data Comm. 


$3-. 95 


J 


JUN88 


Music 


$3.95 


_l 


DEC 84 


Holiday 


$3.95 


-1 


JUL 88 


Anniversary 


$3.95 


J 


JAN 35 


Beginners 


$3.95 


3 










FEB 85 


Uiilihes 


$3 95 


J 




VOLUME a 






MAR as 


Business 


$3.95 


J 


AUGSe 


Garnet 


$3.95 


j 


APR 65 


Simulations 


$3.95 


J 


SEP8S 


Education 


$3 95 


1 


MAY 85 


Pnnter 


S3. 95 


□ 


OCTBB 


Graphics 


$3.95 


1 


JUN85 


Music 


£3.95 


J 


NOV 88 


Data Comm. 


$3.95 


j 


JUL 85 


Anniversary 


£3.95 


j 


DEC 88 


Holiday 


$3.95 


J 










JAN 89 


Beginners 


S3. 95 


J 




VOLUME S 






FEB 89 


Home Help 


$3.95 


J 


AUGH5 


Games 


$3.95 


J 


MAR 89 


Hardware 


$3,95 


l 


SEP 65 


Education 


£3.95 


J 


APR 89 


Business 


$3.95 


1 


OCT 05 


Graphics 


£3.95 


J 


MAY 39 


Printer 


$3.95 


.1 


NOV 85 


Data Comm, 


£3.95 


J 


JUN89 


Summer Fun 


$3-95 


J 


JAN 86 


Beginners 


$3.95 


J 


JUL 89 


Anniversary 


$3.95 


J 


FEB 86 


Utilities 


$3.95 


j 










MAR 86 


Business 


£3.95 


j 




VOLUMES 






APR 86 


Horns Help 


£3 95 


J 


AUG 89 


Beyond BASIC 


$3-95 


J 


MAYOQ 


Printer 


$3,95 


J 


3CFQ9 


Education 


$3.95 


J 


JUN88 


Music 


$3.95 


J 










JUL 88 


Anniversary 


$3.95 


J 











RAINBOW INDEX A complete index to the first three years, July 1981 
through June 1 984. is printed in the July 1 984issue. Separate copies are 
available for $2.50. 

The Fourth, Fifth and Sixth Year Indexes including RAINBOW ON 
TAPE are printed in the July 1 985, 1 986 and 1 987 issues, respectively. 
The Seventh Year Index is printed in the July 1988 issue. 



TOTAL 

KY RESIDENTS ADD 5% 

U.S. MAIL CHARGE 

SHIPPING & HANDLING 

UPS. CHARGE 

TOTAL AMOUNT 



ENCLOSED 



Article Reprints 

In instances where a given issue is now out ul piinl and not available 
for purchase, we do provide photocopies of specific articles. The cost for 
this service is $1.50 plus 50 cents S/H per article. This service is 
provided only in the case of out-of-stock issues. 

Name i ^_^ 

Address 

City 



__ State 

j Payment Enclosed, or 

Charge to my. j VISA n MO a AE 

CARD* 



Zip. 



EXPIRATION DATE 

SIGNATURE 



PHONE ( ) 



TO ORDER BY PHONE (credit card orders only) call (800) 847-0309. 
8 a.m. to 5 p.m. EST All other inquiries call (502) 228-4492. 



, B, 5) :WEXTT:PCOPY3TQ1:PMODE0, 1:S 
CREEN1, 1 

160 PMODE0, 3 ; DRAWS8BM60, 186C5L3 

U5NR3D2NR2D3BL2UHEUHL2D3NR2D2BL3 

EU3HLGD3FRBL5NELHLT3ERNFLGD3FBL5N 

HREUHGHUERF" : PCOPY3T04 :GOSUB330 

165 W$=STR$ (W) :V$=STR$ (V) :M$=STR 

$ (M) ;K$=STR$ (K) :0$=STR$ (O) : J$=ST 

R$ (J) 

170 S(1)=S(1)+4:S(2)=S(2)+4:S(3) 

=3(3) +4:PCOPY3TO2:PMODE0 r 2 

175 GOSUB345:SSS="S"+STR$(S(l) ) : 

SZ$="S"+STR$ (S (2) ) : 50$="S"+STR$ ( 

S(3! ) 

180 DRAW SS$+"BM"+W$+", "+V$+"C5" 

+XA$:KS$=SS$ 

185 DRAW SZ$+"BM"+M$+","+K$+"C5" 

+XB$:AZ$=SZ$ 

190 DRAW 30$+"BM"+Q$+","+J$+"C5" 
+XC$ : AO$=SO$ : PCOPY2T01 : PMQDE0, 1 : 
SCREEN1, 1 

195 IFS (1)=>56THEN280ELSEIFS (2)= 
>56THEN280ELSEIFS (3) =>56THEN280 
200 GOSUB100:IFPEEK(339)=254THEN 
225 

205 IF PPOlNT(W, V)=0THEW235 
210 IF PPOINT(M,K)=0THEN250 
215 IF PPOINTfO, J)=0THEN265 
220 GOT0165 

225 LINE (0, 169) - (X, Y) ,PSET: LINE - 
(0,169) ,PRESET:LINE(252,169)- (X, 
Y) ,PSET:LINE- (252, 169) ,PRESET:PL 
AY"05T255CG":FORI=2TO UK STEP2 : C 
IRCLE(X,Y) , 1,0: NEXT :GOTO205 
230 LINE (188, 192) - (X+2, Y) , PRESET 
:LINE(252,192)-(X+2,Y) , PRESET: CI 
RCLE(X-2,Y) , 2, : CIRCLE ( X + 2, Y) ,2, 
0: CIRCLE (X, Y) ,2,0: RETURN 
235 DRAWSS$:DRAW"BM"+W$+", "+V$:D 
RAW"C0"+XA$ :GOSUB325 
240 M1=M1+25:S (1 ) =0: GS=GS+25 :GOS 
UB330 

245 W=RND(144)+56:V-30:GOTQ165 
250 DRAWSZ$:DRAW"BM"+M$ + ", "+K$;D 
RAW"C0"+XB$:GGSUB325 
255 M1=M1+25:S(2)=0:GS=GS+25:GOS 
UB330 

2 60 M=RND(50)+150:K=100:GOTO165 

2 65 DRAWS0$:DRAW"BM"+O$+", "+J$;D 

RAW"C0"+XC$:GOSUB325 

270 M1=M1+25:S(3)=0:GS=GS+25:GOS 

UB330 

275 0=RND (71) +55; J=90:GQTO165 

2 80 FORI=1TO2:PMODE0, 1:SCREEN1,0 

: PLAY"03T255FC01DC" : PMODE0, 1 : SCR 

EEN1,1:NEXT:IFS(1)=>56THEN S(l)= 

0ELSEIF S(2)=>56THEN S(2)=0ELSF,T 

F S(3)=>56THEN S(3)=0 

285 PT=PT+1:GOSUB340:IFPT=5THEN3 

10 

2 90 PMODE0, 1:SCREEN0, 1 :GOTO160:D 
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RAWKS$+"BM"+W$+", "+V$+"C0"+XA$:D 
RAWAZ$+"BM"+M$+", "+K$+XB$ : DRAWAO 
$+"BM"+O$+","+J$+XC$:GOTOl60 
295 PMQDE0, 1: PCLS: SCREENl, 1 
300 SOUND150, 6:PMODE0, 1: SOUND 150 
, 6: SCREENl, 0:SOUND150, 6:PMQDFJ0, 1 
: PCLS : SCREEN1 , 1 :GOT0145 
305 PMODE0, 1 :SOUND17 6, 10 : SCREENl 
, : SOUND 147,10: SCREENl , 1 : SOUND1 7 
6, 10: SCREENl, 0:SOUND1 47, 10: SCREE 
N1,1:SOUND176,10:SCREEN1,0:SOUND 
147, 10:PMODE0, 1 : PCLS : SCREENl, 1:G 
OT0145 

310 PMODE0, 3: SCREENl, 1 
315 SCREENl, 1 

320 X$ = INKEY$:IFX$OCHR$ (13) THEN 
320ELSERUN 

325 FQRI=1TO2:PMODE0, 1: SCREENl, 
:PLAY"O3L255BCBCO1BCBC":PMODE0, 1 
: SCREENl , 1 : NEXT : RETURN 
330 PC0PY4T03:MS$=STR$(M1) :MK=LE 
N(MS$) -1 :MSS=RIGHT5 (MS$,MK) : FORI 
D=lTO MK:A (ID) -VAL(MID$ (M30, ID,1 
) ) :NEXTID 

335 PMODE0,3:LINE(62,188)-(130,1 
74) , PRESET, BF:DRAW"S8BM64, 187"+Q 
§ :FQRSW=1T0ID-1 : DRAWN $ (A (SW) ) +Q$ 
:NEXTSW: RETURN 

340 PMODE0, 3:SOUND150, 1: DRAW'S SB 
Ml 62, 186C5U5D2R3U2D5BR3NU5BR4U5L 
2NDR4NDL2D5BR5NHREUHGHUERF" : DRAW 
"S8BM210, 187"+QB$+N$ (PT) : RETURN 
345 IF S(1)>57THEN S (1) -56ELSEIF 
S(2)>57THEN S (2) =56ELSEIF S{3)> 
57THEN S<3)=56 
350 RETURN 
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STATEMENT OF OWNERSHIP. MANAGEMENT AND CIRCULATION 
lAl Title of publication; The Rainbow, The Color Computer Monthly Magazine. B> 
Publication No,: 705050. 2) Date of filing: June 21, 1989. 3) Frequency of issue: 
Monthly. 3A) No. of issues published annually: 12. 3B) Annual subscription price: 
S3 1.00." 4) Complete Mailing Address of known office of publication: The Fakofi 
Building. 9509 US. Highway 42, Prospect, Jefferson County, Kentucky 40059. 5) 
Complete Mailing Address of headquarters of general Business Offices Of lite pub- 
lisher: Same. 6) Names and complete addresses of publisher, editor, and managing 
editor: Publisher and Editor: Lawrence C. Falk. The Falsuft Building. 9509 U.S. 
Highway 42. Prospect. Kentucky 40059: Managing Editor: Cray Augsburg, the 
Falsofi Building. °509 U.S. Highway 42, Prospect. Kentucky 40059. 7) Owner: 
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percent or more of total amount of bonds, mortgages or other securities: None. 9) For 
completion by nonprofit organizations authorized to mail at special rates (Section 
423.12 DMMj.Thc purpose, function and nonprofit status of this organization and the 
escniptstatus for Federal Income tax purposes (Check one): Not applicable. 10) Extent 
and nature of circulation: (X)=Avcrage No, copies each issue during preceding 12 
months: (Yj=Actufll No. copies of single issue published nearest to filing date. A) 
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dealers and carriers, street vendors and counter sain {si 1 7,777 (y) 27,640. 2) Mail 
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INTRODUCING THE SUPER DISK 



POWER. 1 That's what the SUPER DISK is all about. Never before have so many power- 
ful disk utilities been assembled on one disk. The manual contains NEVER BEFORE 
PUBLISHED information about the faseinaiiflj SECRET world of COPY PROTECTION. 
The disk is loaded wuh modules to help v ou reach, into hidden track* and sectors id study 
copv protection techniques. AND module* so you can design your own protection schemes. 
'Protection schemes ire the most irftnguiitg punks ever devised." plo. Author 

Look ai some of the things you can do with the SUPER DISK modules: 

THE SNOOPER This dynamic module works a lot like MSDOS DEBUG. You can read 
ANY lector on a disk in any drive, see a he* & ASCII display, jo to any track (even 
those meant to be hidden t. any sector, do hex to decimal conversions, change bytes or 
anv portion of a sector, do a screen dump id your printer, search for preambles & 

postambles, search for ANY specified byte partem, write sector* back to any drive or 
copv sectors from one disk to another, repair damaged directories and learn a lot about 
copy protection techniques. 

READTRAK Read entire tracks into memory includinc ALL of the data between seams. 
[That's where the SECRET stuff is often riiddeni 

R£AD8JTE Read entire tracks from one disk and twite them to another! 

NOCOPY Create disks thai DOS cannot copy 1 

BAS$AVE & BASL0AD The perfect copy prelection tool for BASIC programmers. Saves 
BASIC programs as if they were machine language files AUTOMATICALLY, Use the 
provided ML loader to load an execute them. You can't tell it's BASIC. 

FORMAT & DSKIMODI Create or duplicate secret track and sector formats just like 
the pros. EitsiS) devise uniimued variations of protection schemes' 

AND THERE'S MORE. More modules and more details than you could imagine ubnut 
disk management and protection schemes. If you re jn author, you NEED the SUPER 
DISK. If vou love purities, trv solving protection schemes. IFvou need disk utilities, the 
SUPER DISK is for you! C0C03 disk. 

This power packed disk and informative manual SUPER SALE priced ai $39 

WARGAME DESIGNER II 

SPORTSware's BEST SELLER 1 The WGD II system has everything you need to create 
your own HIRES conflict simulations. PLUS 4 ready to play scenarios. We get FAN MAIL 
from this one. no kidding! 

Cse ihe ICON DESIGN module w create unit &. terrain icons, or modify the ones in the 
4 free scenarios. 16 colors to choose from. 

Use the MAP DESIGN module to create your battlefield with 44 different icons ifrom 
those included or ones you designed') 

Use the UNIT ATTRIBUTES module to assign attributes to each umi, Icon. Strength. 
Firing range. Movement facior. Unit type. Name, Starting location. Turn, of entry and 
Aaaression facior. Each unit can be different! 

Then select PLAY GAME for hours of satisfying entertainment. 

The complete WGD SYSTEM II is ONLY $24 2 flippy disks & manual incl. 

WARGAME DESIGNER ICON DISK #1 

8 compkie sets of unil Sl terrain icons ready to use with WGD II and the original WGD 
All the artwork is done for vou but vou can modify them if yuu like. Easv uausfei to 
WGD (jame disks. COC03 "disk STILL 1L"ST 515 

WEEKLY WINNER 2.0 

Computer users are winnins lotteries. Just read the paper, it's true. We've tried our luck 
with & wtlhuul WW2.0 and WEEKLY W1NMER consistently does better (including a 
SlfflJO winner). For your COC03 INVEST JUST S15 

COC03 FLAGS 

This critically acclaimed RISK play alike is dangerous. One recent purchased complain- 
ed. "I love it! I wj5ied the whole weekend piuyirig it." It's great fun lor I to 6 players. 
Conquer the world! On disk 519 

COC03 WHEEL 

More SU PER fun for I to 6 players. If you tike WHEEL OF FORTUNE, you need COCOl 
WHEEL. You can even add your own puzzle*. 200 included with game. This produci 
has been recently revised and updated. Full instructions included, C0C03 disk 

SALE PRICED AT JUST W 

We have manv more fine entertammeni. utility arid productivity software producls for 
the C0C03 Write far a free catalog or order our NEW CATALOG ON DISK tor only 
S3. Ifyou place an order from the disk catalog, deduct S3 from your order C0C03 only. 

SOFTWARE AUTHORS: SEND US YOUR BEST. 

We pay Ihe highesl royalties. 
Nondisclosure ngreemem available on request. 

ORDER by phone or mail. We accept VISA. MASTERCARD. Money Orders and Checks. 
No waiiins. all orders shipped FIRST CLASS FREE anywhere. 



SPORTSware 

1251 South Reynolds Road, Suite 414, Toledo, Ohio 43615 
(419J 389-1515 
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Educat i on Not e s 




Spelling is often adry and boring subject 
for elementary school students;. Many dread 
learning a new list each week, so teachers 
often try to present alternate ways of learn- 
ing such us scrambles, crosswords and secret 
codes. The belief is that the greater the 
number of word activities the student is 
presented with, the more familiar the words 
become. 

1 have written a program that puts spell- 
ing words into a secret code. The student's 
task is to decipher words correctly in the 
shortest amount of time, 

A list of spelling words is entered in the 
data lines. Start off the program by entering 
the words for numbers one through twenty. 
This list of numbers is just a sample to 
illustrate how the program operates. Sub- 
stitute your own word list for ours when 
you key in the program. This gives the 
program meaning for your child or stu- 
dents. If no spelling list is available, a list of 
famous people or places, science words, 
math terms, computer terms or any other 
list of homogeneous words is suitable. 

When entering your own data, be certain 
to place a comma between each entry ex- 
cept for the last one in each data statement, 

Steve Btyn teaches both exceptional and 
gifted children, hold.'; two master's de- 
grees, and has won awards for dw design of 
programs to aid the handicapped. He owns 
Computer Island and lives in Staten Island, 
New York: 



Suspe useful spelling lessons 



Cracking 
Codes 



By Steve Blyn 
Rainbow Contributing Editor 



Do not put a comma afterDATA. Also, let the 
computer know the total number of items in 
the data statements. This is accomplished 
by altering the value of the variable w on 
Line 30. 

The program contains a routine for a 
substitution of letters that represents a se 
cret code. The code offsets each letter with 
the letter 13 values away from it. For ex- 
ample, the letter A becomes the letter N, 
and the letter N becomes the letter A. This 
proceeds throughout the alphabet and be- 
comes the code. 

This switching of letters by the com- 
puter is accomplished through the use of 
the ASCII values built into the computer. 
Each letter has a corresponding chr$ or 
ASCII number. To test this out, type print 



CHR5 (65) and press ENTER, The computer 
returns the letter A. Next try print chrs < soj , 
The letterZ isdispluyed when you press the 
HNTER key. 

Our code is printed out on the left side of 
the screen. The code must be seen for the 
child to decipher the intended spelling word. 
It is printed by lines 100 and 110. chr$ (l) 
represents each letter. The value of l begins 
at 65 to print out the letter A and is incre- 
mented by I as it proceeds throughout the 
alphabet. 

Line 200 alters the letters of one of the 
spelling words to fit the code. If the real 
letter is between A and M, the computer 
prints out the letter 13 values higher in the 
alphabet. If the letter is between N and Z, 
then the letter 13 positions tower in the 
alphabet is displayed. The student is then 
asked to determine and type in the real 
spelling word, 

A timer is included in the program to add 
an extra measure of interest. Each student 
should soon be able to figure out all of the 
spelling words. The extra challenge of speed 
should help to focus attention on the pro- 
gram for a longer period of time. 

Save the program after you have used it 
for a list of words. When you have com- 
piled a new list to enter, load the program 
and change the data lines and the value of n 
on Line 30. Then save your new list. An 
endless number of lists can be saved and 
used later for review purposes if needed. 

□ 



The listing: 



CODEWORD 



10 REM"SPELLING WORD CODE" 

20 REM"STEVE BLYN, COMPUTER ISLAN 

D, STATEN ISLAND, NY, 1989" 

30 XY=RNDt-TIMER) :N=20:TIMER=0 

40 DIM AS (N) 

S0 FOR T= 1 TO N:READ A$(T) :NEXT 

T 
60 CLS: PRINTS, "cods Code word 

spelling word"; 
70 R5=STRING$(32, 175) 
80 PRINT@32,R?; 
90 L-65:R=64:S-S& 

100 FOR T=l TO 13 : PRINTER, CHR$(L 
) ;"-":R=R+32:L=L+l:NEXT T 
110 FOR T=l TO 13:FRINT@S,CHR$ (L 
) :S=S+32:L=L+1:NEXT T 
120 FOR T=0 TO 12:POKE1091+(T*32 
) , 175:NEXT T 

130 FOR T=1475 TO 1503:POKE T f 17 
5: NEXT T 

140 FOR TT-1 TO 5 
150 PRINT@68+M,TT; 
160 X=RND(N) :Y=LEN(A$ (X) ) 
170 FOR T- 1 TO Y 
180 BS=MID$(AS tX) ,T, 1) 
190 P=ASC(B?) 
200 IE P>77 THEN P=F-13 ELSE P=P 



t!3:REM THIS IS WHERE THE SWITCH 

OCCURS 
210 PLAY"L80BAG" 
220 PRINT CHR$ (P) ; 
230 NEXT T 

240 PRINTS81+M, ■■"; ;LINEINPUT GS 
250 IF G$=A$ (X) THEM PLAY"L8CDEF 
GGG":CR=CR+1 

260 IF G$<>A$(X> THEN SOUND 10,3 
:PRINTa31+M,A$ (X) 
270 M-M+64 
280 NEXT TT 

290 FOR T=l TO 5-.PLAY"L20CEG":NE 
XT T:PRINT@392, "YOU DID"; CR; "COR 
RECT"; 

300 TM=TNT (TIMER/ 60) :PRINT@426, » 
IN ",-TM;" SECONDS. "; 
310 PRINT@4Sa, "PRESS 'e' OR ' c ' " 

320 EN$=INKEY$ 

330 IF EN$="E" THEN 340 ELSE IF 

EN$="C" THEN RUN ELSE 320 

340 CLS:EHD 

350 DATA ONE, TWO, THREE, FOUR, FIVE 

, SIX, SEVEN, EIGHT, NINE, TEN 

360 DATA ELEVEN, TWELVE, THIRTEEN, 

FOURTEEN, FIFTEEN, SIXTEEN, SEVENTE 

EN, EIGHTEEN, NINETEEN, TWENTY 



/Wi 
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D e lphi Bur o au 



The database contains many different 
program types specific to the CoCo, For 
example, some programs downloaded are 
stored in tokenized BASIC format. When I 
say a program is tokenized or compressed 
BASIC, I mean, it is in the same form that 
would appear if you typed in a BASIC pro- 
gram from the keyboard and then typed 
(c)savk "filename'-, basic replaces key- 
words such as print or paint with a one- 
character token, Since several characters 
are replaced with a single one. resulting in 
a smaller file, the term compressed Basic is 
used. However, the term tokenized is also 
often used. 

basic tokenizes in order to save space 
and make program execution faster. Every 
time BASIC encounters a token, it executes 
code already existing in your computer. 
When you have a basic program in your 
computer, it exists in tokenized format. 

The other common way to store a BASIC 
program is in ASCII format, which you can 
do by typing (c)save "filename", a. The , a 
at the end of that line tells your computer to 
save the program to tape or disk in ASCII 
(or text) format. By ASCII and/or text, I 
mean the type of characters (characters/ 
letters that can be seen and recognized) you 
see on the screen when you tell BASIC to list 
a program. 

You can experiment with a few of your 
programs by taking a BASIC program you've 
saved to tape/disk and loading it into the 
buffer of your terminal program. Now view 
the buffer — there are all sorts of colored 
blocks, weird symbols and characters. This 
garbage is the basic program in tokenized 
format. 

Now load into the buffer a BASIC pro- 
gram that's been saved in ASCII format. 
When you view the buffer this time, you 
can read everything. 

For many technical reasons Delphi stores 
rainbow on tape/disk files in tokenized 
format. Occasionally there is a tokenized 
BASIC program in the main database, but 
this is the exception to the rule and happens 
only when conditions dictate a tokenized 
format such as an end-packed code or long 
line lengths. 



Don Hutchison is an electrical engineer 
and lives in Birmingham, Alabama. He 
works as a senior project engineer in- 
volved in the design of industrial control 
systems. On Delphi , Don is the Database 
Manager of the rainbow CoCo SIG. His 
Delphi username is DONHUTCHISON. 



Why won't that down- 
loaded program run? 



Tokenized 
BASIC 



By Don Hutchison 
Rainbow Contributing Editor 

Suppose you download a tokenized BA- 
SIC program and save it to disk as the wrong 
file type. You can correct the mistake by 
loading the program into the buffer of your 
terminal program (assuming you haven't 
altered it) and rcsaving it as a tokenized or 
compressed basic program. 



Ail basic programs in the Rainbow 
topic area of the databases are stored in 
tokenized format, with the exception of 
BA3PIX and tapcnv. These two programs 
are utilities designed to help tape-users, so 
it doesn't do much good to upload them in 
disk-tokenized basic format. In other data 
base areas the basic programs are ASCII 
unless the group description reads other- 
wise. 

Conferences 

Color Computer and OS-9 SIG Group 
Manager Jim Reed (JIMREED) says, "Even 
though informal get-togethers are a nightly 
occurrence in our conference area, we have 
decided to experiment with regularly sched- 
uled formal conferences. 

"We've seen that conferences announced 
in advance have had notable success in 
other SIGs* so we're asking some estab- 
lished experts and "CoCo celebrities' to 
select some specific date and time slots," 
says Jim, "even though many of the poten- 
tial hosts are on almost nightly as it is." 

The conferences take place on the first 
Monday of every month at 10 p.m. EDT. 
Noted programmer Steve Bjork (6809ER) 
was the first guest in the series. Reed 



Database Report 

By Gregory A. Law 

CoCo SIG Database Manager 



In the General Information section Brian 
Wrighl (POLTERGEIST) contributed a se- 
ries of messages wrinen by Ron Dinse that 
describes several differences between the 
Intel and the Motorola microprocessors. 
Mitch Thompson (MADWAND) posted a 
picture fi le by Larry Olson describing how to 
put your CoCo inside an IBM PC/XT case, 
and Version 2.1 of Sled, a full-screen text 
editor. Mike Sweet (DODGECOLT) 
uploaded Version 1.2 of Ed, a simple full- 
screen text editor for OS-9 Level II. John 
Sebella(FORR[Nl)gave us Version 2.03 of 
Galactic Conflict, Journey H that fixes a bug 
or two and adds some new features. Ray- 
mond Mayeux (RAYMAYEUX) posted a 
program to read monthly data files and give 
a report of events that happened on a given 
day. as well as a quote-of-the-day program 
giving a random quote from a user-defined 
file and a program that reads multiple-choice 
question-and answer files you create. 



In the Utilities section Mitch Thompson 
uploaded a program that converts codes 
imbedded in an ASCII file to OS-9 Level H 
graphics codes — great for creating col- 
orized text files — and chipped in the source 
code to the Zmodem file transfer engine 
ready to be added to your terminal program. 
Roger Krupski (HARDWAREHACK) 
gave us a warm-boot program that emulates 
pressing the Reset button and a cold-boot 
program that emulates turning the power off 
and on. Zack Sessions (ZACKSESSIONS) 
posted an update to Super Directory that 
fixes a problem with nonstandard window 
sizes and donated acommand to append sev- 
eral files to a single file. Tim Konnce 
(TIMKOONCE) supplied an alias command 
that allows you to run complex command 
lines with a single word. Steve Ottofy 
(SHOTTOFY) contributed a disassembler 
that creates source code for either the ASM 
or RMA assembler. Merle Kemmerlv 
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commented. "Steve is one of the top game 
programmers for the Tandy Color Com- 
puter, and we're pleased to have him as our 
first conference guest." 

Bjork, who has a number of action games 
marketed by Tandy as well as his own 
software company, held his first confer- 
ences June 5, July 3 and August 7. They 
included a question-and-answer period, 
concentrating the discussion on various 
aspects of action game programming on 
the 6809. The CoCo SIG conferences last 
about an hour, 

Another conference host whose time 
slot will soon be announced is Bill Vergona 
of Cer-Comp. Jim Reed says that even 
though staffers like Marty Goodman, Rick 
Adams, Tim Koonce, Eddie Kuns, Greg 
Lawand Don Hutchison are online nightly, 
some of them may elect to host regularly 
scheduled conferences too. Watch n IE rain- 
bow for details as others hosts join us for 
regular conferences on the CoCo and OS-9 
SIGs. 

Classifieds 

Another new feature in the CoCo SIG 
and OS-9 Online is the Classified Ads, 
While this facility has been available on 
Delphi for some time, ithasjust been added 



in these two SIGs. Group Manager Jim 
Reed reports, "New ads are coming in 
every day. Until now we have encouraged 
people to list merchandise for sale right in 
Forum since we consider this information 
to he a service to our members. But having 
a separate section brings it all together." 

The new CoCo and OS-9 Classifieds 
section is restricted to hardware only and to 
private individuals, not businesses. There 
is no charge for placing an ad, and you can 
also run an ad for items wanted, Jim says 
that the Items Wanted classification is just 
as popular as the For Sale section because 
certain discontinued items are sometimes 
difficult to locate. 

Creating an ad is simple. LL You just 
follow the prompts," says Reed, "and then 
the new ad is posted as soon as a staff 
member has a chance to review it. That's 
usually within a period of hours." 

If you see an item of interest, you con- 
tact the advertiser by mail to settle on price 
or ask any questions, The ad is removed 
after the sale or after 90 days, whichever 
occurs first, "All of us have this or that 
lying around unused, but it is usually so 
much trouble to place an ad locally that we 
just let it gather dust," says Jim. "But since 
this is so easy to do, and the ad is targeted 



to people who have a known interest in the 
Tandy Color Computer, not just the general 
public at large, we think the advertiser will 
be spared the types of off-the-wall tele 
phone calls one can get when advertising in 
mass media." Besides, the price is certainly 
right. 

Orchestra-90 and Disk 

Several SIG users recently purchased 
the Orchestra-90 Pak at a greatly-reduced 
price, only to find they had difficulties 
using the Pak with a CoCo 3. Naturally they 
turned to the Forum section of the Rainbow 
SIGs for help. 

Mike Ward (M1KEWARD), a musician 
himself, quickly replied. "My Orchestra- 
90 Pak has worked with my CoCo 3 and 
disk drive since I got it. If you look at the 
docs, you see that you have to enter a D at 
the opening screen to engage the disk mode. 
There is also a high-speed mode that can be 
switched in by pressing SHIFT-ENTER at the 
very first screen." 

The CoCo SIG's database contains many 
Orchestra-90 music files you can down 
load. The procedure is a little tricky, but it 
is easy to follow once you' re used to it. The 
problem occurs because Orchestra-90 files 
are stored in your computer (and on disk or 
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tape) in a special binary format, even though 
they are actually ASCII files. 

The usual procedure is to process your 
Orchestra-90 File through an Orchestra-90- 
to-ASCII convener program before you 
upload it. This also means you need to use 
the reverse procedure after downloading an 
Orchestra- 90 file from the SIG's database. 
You need to convereion utility called oojvrt 
to convert the ASCII file back to Grchestra- 
90's internal format. 

Mike Ward has graciously posted his 
ocnvrt utility for just these purposes, ocnvrt 
is available in the Utilities, Music and 
Rainbow topics of the database. 

Getting a DATE 

Want to know about a really neat new 
command on Delphi? It's the /date slash 
command. The /date function has always 
been available, yet it's been enhanced just 
recently to show the users some additional 
information, mostly concerning holidays. 

For example, if you want to know how 
a day is billed on your account, just use the 
/date command: 

/DATE Dec 2 5 



Delphi responds, "Monday December 
25, 1989, is billed like a Sunday because 
it's Christmas Day." So if you need to 
know on what day of the week a date falls, 
you can also determine that information 
from the /date command. 

However, keep in mind that /date may 
generate confusing answers. For example: 
/date jul 3 causes Delphi to respond, 
"Monday, July 3, 1989, is billed like a 
Friday because the next day is Independ- 
ence Day." 

Now if anyone understands how being 
"billed like a Friday" differs from being 
"billed like a Monday," he or she is invited 
tn conduct the conference on "Advanced 
Use of /date" to be held on the next Delphi 
holiday that is "billed like a Thursday." 

Chatting With Other Computers 

It's not hard for you to chat over the 
phone lines with your apple-headed friend. 
You don't really need to use a BBS pro- 
gram unless you want to. 

Just use your normal terminal program, 
but set it up for half-duplex and insert line- 
feeds. If you're using Mikeylernu you can 
do this easily from the Parameters menu. 



The only other requirement is that one of 
you must set your modem to auto answer. 
For Hayes-compatible modems, use the at 
so command (for example, at so=i). You 
should see the AA LED illuminated on 
your modem. 

If both of you use terminal programs 
that support Xmodem, file transfer is also 
possible. Naturally one computer's pro- 
grams won't work on the other computer, 
but you can transfer ASCII files between 
the two machines. Expect to see some 
weird things from an Apple, however. As I 
remember, Apple pads the last Xmodem 
block with a strange fill character. The fill 
character represents the number of signifi 
cant data bytes in the last block or some- 
thing similar. 

Remember that 24-hour help is always 
available online. No matter how small or 
insignificant your problem may seem, there 
is probably someone available to help you. 
After all. remember that the Rainbow SlGs 
boast a membership in excess of 7000 
members nationwide! 



— Don Hutchison 



(TOOK3) has famished TefStar Version 
3,2.4, which features hoi keys, macros, vir- 
tual buffers and numerous othercapabilities. 
Brad Neuberg (FIDGET) donated the 
source code to the Fido BBS for those of you 
interested in converting it from MS-DOS to 
OS-9. 

In theGraphics and Music section. Jason 
Ruddock (JAYR) posted the Beatles' "Hey 
Jude" in UhiMuse format. Tim Koonee 
submitted a graphics demo that creates string 
art with a lot of different options to create 
strange effects and a graphics display utility 
that displays VEF. MDE, CM3 and a com- 
mon variant of MGE called "640 Format." 

Brian Wright chipped in several sound 
files for the Play utdity, including Disruptor 
Blasts, a General Quarters alarm and a sample 
from the movie The Terminator. Zack Ses- 
sions posted Mixup, a variant to the Concen- 
tration game written by Doug Langcamp and 
several VEF format pictures, originally 
PMODE 4 monochrome images, colorized 
with MaxS. Jim Buck (COCQROGUE) con- 
tributed "Snowbird." California Girls" and 
several other UitiMuse III songs set up for a 
Yamaha PSS-4&Q synthesizer. 

CoCo SIG 

In the General Information section Don 
Hutchison (DONHUTCHISON) donated a 
complete up-to-date listing of all the local 
access numbers for Telenet. Gay Crawford 



(GAYCRAWFORD) contributed a list of 40 
lawn-care pesticides and their known health 
hazards. Also included is a list of publica- 
tions and organizations offering advice on 
chemical-free lawn care, Frances Calcraft 
(FRACALCRAFT) chipped in an article 
about fixing bugs in auto-starting programs. 
In the CoCo 3 Graphics section Eric 
Stringer (NES) chipped in the new Batman 
logo written in BASIC. Bob Wharton 
(BOB WHARTON) furnished the movie 
logos for Ghosthuxters H and Batman done 
with Color Max Deluxe. Erik Swenson 
(ER1KS) submitted five graphics shorties, 
each creating interesting designs. Dan 
Shargel (TRIUMPH) posted a Color Max 3 
double-page file of his letter read on Law 
Night With David Letterrnan. Travis King 
(KING I) uploaded several MacPaint pic- 
lures including Vanna White, Brooke 
Shields, the Texas Diller armadillo, the or- 
biting Space Shuttle, and Scrooge McDuck 
in his money bin. Mike Martin 
(MPMARTIN) supplied four visages, two 
faces and two skulls in PIX format and some 
Atari ST graphics images of such favorites 
as Ronald Reagan and Madonna. Pete Elli- 
son (PETEELLISON) contributed a GIF 
image of Space Ace taken by Brian Rhoden 
with the Rascan video digitizer and a digit- 
ized picture of Madonna (also taken with the 
Rascan video digitizer), saved in MGE 
format. Robert Louden (KURSE) gave us a 



program to be used on a 512K CoCo in 
conjunction with the GIF viewer to effec- 
tively increase the vertical resolution. 

In the Utilities and Applications section 
Brian Barnes (ROBOFIGHTER) contrib- 
uted a program for searching and replacing 
strings in ASCII BASIC files. Robert Pierce 
(RPIERCE) chipped in with a disk directory 
utility for the CoCo 3 with an RGB monitor. 
Hadley Hazen (HAZE) gave us a utility that 
prints directories on a DMP-130 printer. 
John Beveridge (JOHNTORONTO) do- 
nated an archive tool that extracts files from 
several MS-DOS and most CoCo archive 
formats. 

In the Games section Kelly Thompson 
(KMTHOMPSON) submitted a slight revi- 
sion of the popular Vulcan game by FIRE- 
FLY to include enhanced color and the "no- 
win scenario." Marty Goodman (MAR- 
TYGOODMAN) supplied a complete de 
script ion of the process fur transferring the 
game Malcolm Mortar to disk. 

In the Music and Sound section Matt 
Martin (JOECOOL) uploaded a Bells and 
Whistles version of Johan Pachelbd's Canon 
in D. 

In the Telecommunications section Matt 
Martin contributed a modified parameter 
loader written by Bell Haesslein foxGETerm 
Version 2.5, 
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XTERM 

OS-9 Communications progran 



Menu oriented 
Upload/download Asctl 
or XMODEM protocol 
Execute OS-9 commands 
from within XTERM 



Definable macro keys 
Work* with standard Serial port, RS232 
Pak, or PBJ ISP Pack, Includes all drivers 
Works with standard screen, Xscreen 
WOKDPAK or DISTO 80 Column board 



iiffiWffiwsffiaE 
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$49.95 with source $89.95 

- ..--■ .'.'.-... -*.V.': :...'.'.': :::':' 

ECONOMIST 



Perform economic analysis to compare differ- 
ent cost and income alternatives! Compute 
present and future Life Cycle Worths for var- 
ious combinations of single, series and gradi- 
ent dollar amounts. Quickly edit and recom- 
pute for sensitivity analysis! Display line 
graphs. Printout data and results. Pull-down 
menus, windows and prompts. Requires os-9 
level II and Basic09. 

$39.95 WITH SOURCE $79.95 
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HARDWARE 
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512k memory upgrade 

Ram Software 
Ram Disk 
Print Spooler 
Quick Backup 



$119.95 
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XWORD 
OS-9 word processing system 

■ Work* with standard text screen, XSCREEN, WORDPAK, or DISTO 

■ True character oriented full screen editing 

• Full b|»ck commands 

■ Find and Replace commands 

■ Proportional spacing supported 

• Full printer Control, character size, emphasized, italics, overstrlke, 
underline, super/sub-scripts 

- 10 header/foolers 

• Margins and headers can be set different for even and odd pages 

$69.95 with source $124.95 

AM E RG E Mall merge capabilities for XWORD 

$24.95 with source $49.9 5 

AOruLL OS-9 spelling checker, with 40000 word dictionaries 

$39.95 
XTRIO XWORD/XMERGE/XSPELL 

$114.95 with source $199.95 

XED OS-9 full screen editor 

$39.95 with source $79.95 
XDIS OS-9 disassembler 

$34.95 with source $54.95 
XDIR & XCAL Hiemrchial directory, OS-» calculator 

$24.95 With source $49-9 5 



All three for only 
$19.95 
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THE DIRECTOR 

Produces hires picture sound and color animation shows. Completely menu 
|| driven win full editing. Great for preseruaiiorB and vcr's. Requires COCO ID 



only. 



$39.95 




BUSINESS ACCOUTING 

This sales-based accounting package is de- 
signed for Ihe n on -account ant oriented busi- 
nessman. It also contains the flexibility for 
the accounting oriented user to set up a double 
entry Journal with an almost unlimited chart 
of accounts. Includes Soles Entry, transaction 
driven Accounts Receivable and Accounts Pay- 
able, Journal Entry, Payroll Disbursement, 
and Record Maintenance programs. System 
outputs include Balance Sheet, Income State- 
ment, Customer and Vender status Reports, 
Accounts Receivable and Payable Aging Re- 
ports, Check Register, Sales Reports, Account 
Status Lists, and a Journal Posting List. 

$79.95 

INVENTORY CONTROL/SALES ANALYSIS 

This module Is designed to handle Inventory 
control, with user deflned product codes, and 
produce a detailed analysis or (he business' 
sales and the sales force. One may enter/update 
inventory data, enter sales, run five sales anal- 
ysis reports, run five inventory reports, set up 
product codes, enter/update salesman records, 
and update the SBAP inventory, 

$59.95 



PAYROLL 

Designed for maintaining personnel and 
payroll data for up to 200 hourly and salar- 
ied employees with X deductions each. Cal- 
culates payroll and lax amounts, prints 
checks and maintains year-to-dale totals 
which can be automatically transferred lo 
the SBA package. Computes each pay peri 
ad's totals Tor straight time, overtime and 
bonus pay and determines taxes to be wilh- 
hi-lif. Aditional outputs include mailing list, 
listing or employees, year-lo-date federal 
and/or state tax listing, and a listing or cur- 
rent misc. deductions. Suited for use in all 
slates except Oklahoma and Delaware 

$59.95 



PERSONAL BOOKKEEPING 2000 
Handles 45 accounts. Enters cash expenses as 
easily as checks. Handles 26 expense catego- 
ricsK, Menu driven and user friendly. 

$39.95 



ACCOUNTS RECEIVABLE 



Includes detailed audit trails and history 
reports for each customer, perpares In- 
voices and monthly statements, mailing la- 
bels, aging lists, and an alphabetized cus- 
tomer listing. The user can define net 
terms for commercial accounts or finance 
charges for revolving accounts. This pack- 
age functions as a standalone A/R system or 
Integrates with the Small Business Act ling 
package, 

$59.95 

ACCOUNTS PAYABLE 

Designed for the maintenance of vendor 
and A/P invoice nits. The system prints 
checks, voids checks, cancels checks, de- 
letes cancelled checks, and deletes paid A/P 
invoices. The user can run s Vendor List, 
Vendor Status report, Vendor Aged report, 
and an A/P Check Register- This package 
can be used either as a standalone A/P sys- 
tem or can be integrated with Ihe Small 
Business Accounting Package. 

$59.95 



MICROTECH 

CONSULTANTS 
INC. 



1906 ■Jefrold Avenue 
St. Paul, MN ,.;. S5112 




Ordering Information 

Add £3.00 shipping & handling, MN residents add 6% sales tax. 
Visa, Mastercard. COLJ [add S3.J0), personal checks. 



Deal* ih y :Jriijmrir ^Invited. . ...;!.! 

O-V .9 is a triiiitmarlL p/Mftraware. 





(612) 1633-6161 
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Novices 
Niche 




THE rainbow is a teaching environment and we realize that the 
majority of our readers will always be beginners. In our continuing effort 
to always keep the new user in mind, and in addition to the many beginner 
feature articles and programs published in every issue, "Novices Niche" 
contains shorter BASIC program listings that entertain as well as help the 
new user gain expertise in all aspects of the Color Computer: graphics, 
music, games, utilities, education, programming, etc, 




Mary note 

by Jon Hobson 



16K 
ECB 



Mtarynou plays "Mary Had a Little Lamb" and displays one 
note at a time on the pmode q. graphics screen while playing that 
note. It uses the treble clef scale. Now yon can enjoy this song, 
while learning what notes it actually plays. Remember, from the 
bottom line to the top space the notes arc as follows: E F G A B C 
DEFG. 



The Listing: marynote 



198 9 FALSOFT,INC 



' COPYRIGHT 
10 CLS 
20 GOSUB250 

30 PMODE 4 / l:SCREENl,l:PCLS 
40 FORT=10TQ50STEP10:LINE{10,T) - 
(245, T) ,PSET;NEXTT 

50 LIME (10, 10) -(10, 50>,PSET:LINE 
(245, 10) - (24 5,50) , PSET : LINE ( 10, 7 
0)- (10, 110) ,PSET:LINE(245,70)-(2 
45, 110) ,PSET 

60 FORT=70TO110STEP10:LINE(10,T) 
- (245, T) , PSET:NEXTT:FORT=130TQ17 
0STEP10:LINE(10,T)- (185,T) ,PSET: 
NEXTT 

70 LINE (110, 10) - (110, 50) ,PSET:LI 
NE (180, 10)- (180,50) , PSET: LINE (11 
0,70) - (110,110) , PSET: LINE (180, 70 
)- (180, 110) , PSET: LINE (10, 130) -(1 
0, 170) ,PSET 

80 LINE (180, 130)-(180, 170) , PSET: 
LINE (18 5, 130) -(185, 170} , PSET : LIN 
E(110, 130) -(110, 170), PSET 
90 LINE (10, 10) - (10, 50} ,PSET:LINE 
(245,10)-(245,50) ,PSET 
100 QRAW M BM25,105;XA$;" 
110 DRAW"BM25, 45;XA$; " 
120 DRAW"BM25, 165;XA$; " 
130 DRAW"BM50,15;XHD$;" 



140 PLAY"E" 

150 DRAW"BM65,20;XHD$;":PLAY"D": 

DRAWBM80, 2 5 ; XHU$ ; " : PLAY^C" : DRAW 

"BM95,20;XHD$; , ' :PLAY"D" 

160 DRAW"BM120, 15;XHD$;" ;PLAY"E" 

:DRAW"BM135, 15;XHD$; ";PLAY"E":DR 

AW"RM150, 15;XHD$;" :PLAY"E" 

170 DRAWBM165, 17; XHR$; " : PLAY"P5 

11 

180 DRAW"BM190,20;XHD$;" :PLAY"D" 

:DRAW"BM205,20;XHD$;":PLAY"D" : DR 

AW"BM220,20;XHD$;" :PLAY"D" : DRAW" 

BM235, 22;XHR$; " :PLAY"P5" 

190 DRAWBM50, 7 5;XHD-'?; ":PLAY"E": 

DRAW"BM65,65;XHD$; ": PLAY" G" : DRAW 

"BM80, 65;XHD$; " : PLAY"G" : DRAWBM9 

5,67;XHR$;" :PLAY"P5" 

200 DRAW ,, BM120,75;XHD$;" :PLAY"E" 

: DRAWBM1 3 5,80; XHD$ ; " : PLAY"D " : DR 

AWBM150, 85;XHU$;" : PLAY"C" :DRAW" 

BM165, 80;XHD$; " :PLAY"D" 

210 DRAW"BM190,75;XHD$; ":PLAY"E" 

:DRAW"BM205, 75;XHD$;" :PLAY"E" :DR 

AW"BM220, 75;XHD$; " : PLAY"E" :DRAW" 

BM235, 75;XHD$; " :PLAY"E" 

220 DRAW"BM4 5, 140;XHD$; ":PLAY"D" 

:DRAW"BM60, 140,- XHD$ ; " : PLAY"D" :DR 

AW"BM75, 135;XHD$; " :PLAY"E" : DRAW" 

BM90, 140;XHD$; " :PLAY"D r ' 

230 DRAW"BM120, 145;XHU$; " :PLAY"C 

" :DRAW"BM135, 143;XDW$; " :PLAY"P15 
n 

240 GOTO240 

250 A$="U30R3F2D3G4L2G6D8F3R8E3U 

5H4L3G4D3F3R2E2U2" 

2 60 HD$="U1D2F1R3E1U2H1L3G1D10" 

270 HUS="U1D2F1R3E1U2H1L3G1U7" 

280 HR$-"L3R7L2U3L3D3" 

2 90 DW$="L3R7L2D3L3U3D3R3U3R2BR3 

BD2R1" 

300 RETURN 
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Computer Aided Design 

by Evan Haveman 



This program demonstrates CAD (Computer Aided Design) at 
a minimal level. The instructions are simple. When you first run 
the program, a question mark appears. Just type in a draw string 
and that becomes your symbol number 0: then 1 ; then 2, etc, If you 
don't want any special symbols, just press enter. The following 
is a description of all the keys used in the program: 

T=move diagonally up and to the left 

Y=move up 

U=move diagonally up and to the right 

G=move left 

H=move right 

V=move diagonally down and to the left 

R=move down 

N=move diagonally down and to the right 

C=change color 

Q=clear screen 

0-9=draw previously made symbol 

I have set the drawing cursor to move ten steps in the required 



direction, but you can change the number of steps by changing the 
10 in lines 50 through 1 20 to the number of steps you prefer, 

The Listing: minicad 

' COPYRIGHT 1989 FALSOFT, INC 

***M I N I CAD*** 
BY EVAN HAVEMAN 

1 C=0 

2 NU$="1234567890" 
10 ON BRK GOTO 170 

20 POKE65497,0 

21 WIDTH 40 

22 INPUT Dl$: INPUT D2S : INPUT D3S 
: INPUT D4$: INPUT D5$ : INPUT D6$:I 
NPUT D7$: INPUT D8$: INPUT D9$:INP 
UT D0$ 

30 RGB:HSCREEN2:PALETTE0,0 

40 I$=INKEY$:IF 1$="" THEN 40 

50 IF I$="T" THEN M$="-10 f -10" :G 

OTO 150 

60 IF I$="Y" THEN M$="+0,-10":GG 

TO 150 

70 IF I$="U" THEN M$="+10, -10" :G 



ATTENTION'!!! Alpha software technologies bus teamed up with COCO Devices tabling you the inaudible COMM i port! 1 ports ill one slot! That's right 4 users al onetime! Special 
pulsed IRQ line helps to prevent linkup*! Kxlernul 1H« lino allows you to run multiple pake (bra total of 8 ports available! Totally compatible 6551 technology, no spatial drivers needed! 
A must have Tor ANY HUS user! You'll be the talk of the town with a 4 n»de BIJS system! A perfect match for 039 Level II BOS! , „™.il24.95 , 

System comes complete and ready to run. Usclhe-bouilt in menus or create your own. Run your own program a or games on-line! Complete message system included. File transfer system 
supports Xmodem and Ymodura plus automatic validation with keyword eearthiiigi Even ™mn with its own terminal program free! Now includes ANSI graphics menus and editor! See 
board while it runs! For a DEMO call [504J G75-0912 (.'VIZ'2'100 baud). Galactic Conflict game also included! t>IZk OSS Level II and RS-232 tor COMM-4) pak required.,, £ 29.95 

(Mi ■ TPm Ammr 

This is what you have been waiting foil tonally RAM-Hcsident software fur your COCO 3! Runs in the background while you do other work! Includes a notepad that docs automatic 

number calculation!, a calendar with alarm, a phone book that can autodial your phoned red time clock and much, much, mora! This program will organize your entire life! 

512k OS91-evcl [I Required (Hayes compatible modem required for auto-dial) 512k OSS Level II Required _ , $ 29.9S 

Without the right tools OSS is difficult... Those AliK the right tools! With these great utilities anyone am UM OSS like a pro! Complete wildcard, tree and windowing commands make 
OS9 easy to use! If you want to start using OS9, this is what you need! Ifyou already use OS9. these tools will save you hours oftime and headsfheiB! 2S great utilities! $ 24.95 

IQftsk .HI«3rtiff*r Iftr** 

This versatile utility makes your OS8 life a breeze! No mans fighting with complex directory structures! No more saarthing for Bias and typing long path names! Everything is 
displayed using windows! Allows you to change, create, and delete directories with single keystrokes! Also allows you to Copy, Vie* and delete files just as easily! A must For the OS9 
beginner. A great time saver for the experienced OSS user Save hours of time and headaches! 512k OS9 Level II Required ,...„...„ „...„,„.„.„ J 29.95 

Wam - HI una 
This great Multi - Vue utility allows you to easily create your own pop down menus! No programming experience is required, because no programming is done! Yqu will be able to run 
any OS9 command or program from a menu! Menu creation is super simple, super easy! Actually see the menu as it develops, A must for Mulli - VueuserBi Make that non Multi . 
Vue software run in Multi - Vue! S12k OS9 Lewd II and Multi - Vue required ,..,....„.,..., , ,.,.„„, $ 19.95 

Waiinp ■ ©aw 

Finally, a complete OS9 Level II windowing terminal program. Many features include Auto-dial & macro, X & Y modem, ANSI graphics, buffer capture, on-line timer, chut mode, 
windows, and much, much, more! Perfect for any HIIS user! Mori, power than you'll ever need! 512k OS9 Level 1J Ilequired , , ..,........„,..,,.„,.„,„,,„„,...,..„.,, £ 34.95 

Tfea Stqfptv 

This wonderful utility allows you to patch anything! Patch commands directly on disk and h* CUCs automatically! Patch the OSSBoot file! Save lost files! Fix crashed disks! One 

use of this program could be worth the price! Rik 059 I^evel I or II required Tr ,.,,„.., , „..., ... £ 19 gs 

Send check or money order to: Alpha Software Technologies, P.O. Box 16522, Hattieshurg MS. 39402 (504>649-517<> 

PleiuK udd S3.UU Shipping aaid Jviritjhrff, ii]| ■Ttrdfim whipped aajneday vi a f\ rui. t] a=«i pqp*3- M*wt a^dem arrive in 2 to -3 daya. COD omen add S'fi.SO rjtLr»», 
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OTO 150 

80 IF I$="G" THEN M$="-10, + 0" : GO 

TO 150 

90 IF lS="H" THEN M$="+10, +0" : GO 

TO 150 

100 IF I$= ,I V" THEN M$ = "-10, +10": 

GOTO 150 

110 IF I$="B" THEN M$="+0,+10" :G 

OTO 150 

120 TF I$="N" THEN M$="+10, +10" : 

GOTO 150 

130 IF I$="C" THEN C=C+1:IF C>15 
THEN C=0:HDRAW "C"+STR$ (C) ELSE 
HDRAW "C"+STR$(C) : GOTO 40 

140 IF I$="Q" THEN HCLS0:GOTO 40 

141 ON INSTR(NU$, 1$) GOSUB 2001, 



2002, 2003, 2004, 2005, 2006, 2007, 20 
08,2009,2000 

142 GOTO 40 

150 HDRAW "M"+M$+"C"+STR$ (C) 

160 GOTO 40 

170 RGB:WIDTH 80: POKE65496, 0: END 

2000 HDRAW D0$: RETURN 

2001 HDRAW Dl$: RETURN 

2002 HDRAW D2$: RETURN 

2003 HDRAW D3$: RETURN 

2004 HDRAW D4$: RETURN 

2005 HDRAW D55: RETURN 

2006 HDRAW D6$: RETURN 

2007 HDRAW D7$:RETURN 

2008 HDRAW D8$: RETURN 

2009 HDRAW D9$: RETURN 
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SprayCan 

by Joseph Pendell 



16K 
ECB 



Spraycan is a graphics program that draws a special pattern 
positioned by the right joystick each time the fire button is pressed. 
The best effect is when using a composite monitor or TV, so the 
artifact colors show up. Also, the speed-up poke causes better 
joystick response. If your computer cannot take the speed-up poke, 
delete Line 30. A tip for using the program is to hold down the 
joystick button while moving the joystick in a small circle, causing 
a cluster to be drawn. Two changes are required to use the program 
on a CoCo 3. First, change Line 30 to poke 65497, q. Second, 
change Line 180 to if button (0}-i then get(x,y)-(x+9,y+9) ,b. 

The Listing: spraycan 

' COPYRIGHT 1989 FALSQFT, INC 

10 REM SPRAYCAN 

20 REM BY JOSEPH PENDELL 

30 POKE 65495,0 

40 DIM A(10) ,B(10) 



50 PMODE4, 1:PCLS 

60 PORI=l TO 20:READ X,Y:PSET(X, 

Y) :NEXT I 

70 DATA 2,0,4,0,6,0,8,1,1,2,3,2, 

6,2,9,3 

80 DATA 0,4,2,4,7,4,4,5,9,5,0,6, 

6,6 

90 DATA 3,7,8,7,1,8,6,8,4,9 

100 GET{0,0}-(9,9) ,A,G 

110 PCLS 

120 GET{0,0)-(9,9) ,B 

130 SCREEN 1, 1 

140 X0=0:Y0=0 

150 X=JOYSTK(0) /63*2 45:Y=JOYSTK( 

1) /63*181 

160 IF XOX0 OR YOY0 THEN PUT (X 

0,Y0) - (X0+9, Y0+9) , B:X0=X:Y0=Y:GE 

T (X, Y) - (X+9, Y + 9) ,B 

170 PUT(X,Y) - (X+9, Y+9) ,A,OR 

180 IF (PEEK (65280) =126 OR PEEK ( 

65280) =254) THEN GET (X, Y) - (X+9, Y 

+ 9) ,B 

190 GOTO 150 



Fun With Fractals 

by Andre Needham 



CoCo 3 



I know, a lot of you are saying, "what arc fractals, and why are 
they fun?" Well, I'll tell you. Fractals are images generated using 
the methods of fractal geometry, using iterative (repetitive) func- 
tions. Sounds too technical? Don't worry, the two programs below 
can be typed in and run with little or no mathematical knowledge 
of the underlying concepts. 

Fractals are fun because they are an easy way to draw natural 
looking objects, such as trees, clouds or, in the case of my first 
program, mountains. They can also be used to produce unnatural 
objects such as the Mandelbrot or Julia sets, as my second program 
demonstrates. 



The first program, Fractmtn, produces a mountain with a 
snowy peak and patches of snow farther from the peak. Just type 
the listing in and run it. You are asked to enter your monitor type 
(C for Composite, R for RGB), and in less than a minute the 
program begins drawing small triangles calculated from one large 
one. It does this by splitting it up and moving theendpointsof the 
pieces around randomly. Sometimes atriangle is too small and the 
program misses when it attempts to paint the triangle. This results 
in what looks like a disaster; as the program continues, however, 
the rest of the mountain is drawn correctly. 

When the mountain is finished, the program beginscalculating 
a new mountain. To stop this cycle, press BREAK or just let it run 
and watch more mountains grow. 

The second program, Juliaset, produces strange-colored pat- 
terns of an apparently random type. However, they are not actually 



60 



THE RAINBOW 



October 1989 



random, but generated from an imaginary (in the mathematical 
sense only; it does exist) iterative function. 

To gel going, just type the program in and run it. The computer 
asks you to press ] for low iterations, or 2 for high iterations. 
Basically, Option 1 draws faster (about four hours on the average), 
but with less detail. Option 2 takes about eight hours (You might 
want to run it overnight with ynurdisk drive and monitor turned 
off.) and offers more fine detail. 

Next you must input the .v and y coordinates that the set will be 
drawn from. These should both be between -1.5 and 1 ,5 . Three sets 
that produce more unusual patterns are .320, -.0430; -.74543, 
.1 1 30 1 ; and - 1 .350,0. If you want to see a Julia set without waiting 
eight hours, there is one pictured in the National Geographic (June 
'89, Page 750). This is a more detailed mirror image of the first set 
of coordinates listed above. Above it on the same page is the 
Mandelbrot set, and on the next page are some very detailed fractal 
mountains. 

Once the program finishes drawing the picture, it stays in an 
infinite loop until you press break. If you want to save the 
resulting picture from either program, you might try the listing in 
Bill Bernico's "Basically Speaking" column (January '89 issue. 
Page 84). 

Listing 1: FRACTMTN 

' COPYRIGHT 1989 FALSOFT, INC 

5 ' FRACTAL MOUNTAIN PROGRAM 

6 ' BY ANDRE NEEDHAM 

7 ' P.O. BOX 2 516 

8 ' RENTON, WA 98056 

10 DIMX(32,32) , Y(32, 32) :ON BRK G 

OTO 340 

20 INPUT" (C)OMPOSITE OR (R)GB";Q 

$: PRINT" JUST A MINUTE..." 

30 PQKE65497,0:I=5:II=32:R=.4 

40 X(0,0)=160:Y(0,0)=20:X(II,0)= 

310: Y ( 11,0) =140 :X (0, II) =10:Y(0, I 

I)=140 

50 F0RT=I T01 STEP-1:Q=2 A T 

60 A=0:B=0 

70 AA=A+Q:A2=A+Q/2 :X (A2,B)=(X (A, 

B)+X(AA,B) )/2+RND (2*Q+1) -Q-1;Y(A 

2,B) = (Y(A,B)+Y(AA,B)>/2+ (RND (2 A Q 

+1)-Q-1)*R 'ACROSS 

80 A=A+Q::IF INT (A+B+ .01) =11 THE 

N A=0:B=B+Q:IFB>II THEN 100 

90 GOTO 70 

100 A=0:B=0 

110 BB=B+Q:B2=B+Q/2:X(A,B2}=(X(A 

, B) +X (A, BB) ) /2+RND (2*Q+1) -Q-l : Y ( 

A,B2)=(Y(A,B) +Y (A,BB) ) /2+ (RND (2* 

Q+1)-Q-1)*R 'DOWN 

120 B=B+Q:IF INT (A+B+ .01) =11 THE 

NB=0:A=A+Q:IFA>II THEN 140 

130 GOTO110 

140 A=0;B=0 

150 AA=A+Q:BB=B+Q:A2=A+Q/2:B2=B+ 

Q/2 

160 X(A2,B2) = (X(AA, B) +X(A,BB) ) /2 

+RND (2*0+1) -0-1 :Y(A2,B2)=(Y(AA,B 

)+Y(A,BB) ) /2+ (RND(2*Q+1) -Q-l) *R 

'DIAGONAL 
170 A=A+Q:IF INT(A+B+.01)=II THE 
N A=0:B=B+Q:IFB>II THEN 190 
180 GOTO 150 



190 NEXT 

200 HSCREEN2 :PALETTE0, : PALETTE3 
-, 63: HCOLOR4 , : IFQ$="R" THENPALET 
TE2,56 ELSE PALETTE2,32 
210 HCLS2 

220 FORA=0TO II-l : FORB=0TO II-l: 
R=X(A,B) :S=Y (A,B) :HDRAW"BM=R; , =S 
;" :HLTNE- (X(A,B+1) , Y(A,B+1) ) , PSE 
T:HLINE- (X(A+1,B) ,Y(A+1,B} ) , PSET 
:HLINE- (X(A, B) ,Y(A,BM ,PSET 'D 
RAW TRIANGLES 

230 IFA+B+KII THEN R=X(A,B+1):S 
=Y(A,B+1) :HDRAW"BM=R;,=S; ":HLINE 
- (X(A+1,B+1) , Y(A+1,B+1) ) , PSET:HL 
INE- (X(A+1, B) , Y (A+1,B) ) , PSET 
240 XX=(X(A,B+1) + X(A+1,B+1)+X(A+ 
1,B) ) /3:YY=(Y(A,B+1>+Y(A-H,B+1) + 
Y(A+l,B))/3 'FIND TRIANGLE MIDPO 
INT FOR PAINT 

250 IF Y (A, B)-RND (55) -55 <0 THEN 
CX=3 ELSE CX=2 'MAKE TOP OF MO 
UNTAIN MORE "SNOWY" 
260 IF A+B + KII THEN HPAINT (XX, Y 
Y) ,CX, 4 

270 IF Y(A,B)-RND(55>-55<0 THEN 
CC=3 ELSE CC=2 

280 XX= (X(A,B) +X(A,B+1)+X(A+1,B) 
) /3:YY=(Y(A,B) +Y(A,B+1) +Y(A+1,B) 
) /3: HPAINT (XX, YY) ,CC, 4 'FIND O 
THER TRIANGLE'S MIDPOINT 
290 IFA+B+1=II THEN 310 
300 NEXTB 
310 NEXTA 

320 HLINE(0, 140) -(10, 140) ,PSET:H 
LINE(310, 140) - (319, 140) ,PSET:HPA 
INT (0, 139) ,5,4 
330 GOTO30 
340 HSCREEN0:POKE65496,0 



Listing 2: JULIASET 

' COPYRIGHT 1989 FALSOFT, INC 

1 POKE65497,0 

2 INPUT" ITERATIONS; l=LOW, 2=HIG 
H",-Z:IFZ<1 OR Z>2 THEN 2 

3 INPUT"COORDINATES";CC,CI 

10 HSCREEN2:FORT=0TO11:READX:PAL 

ETTET,X:N£XT:DATA0, 15,24,26,22,5 

0,51,52,36,47,60,63 

30 XL=-1 . 5 : YL=-1 . 5 : XH = 1 . 5 : YH=1 . 5 

:DX=(XH-XL) /200: DY= (YH-YL) /200 

40 FORNX=100 TO 1 STEP-1 : F0RNY=5 

T0195 

50 X=XL+NX*DX;Y=YL+NY*DY:K=0:A=X 

*X:B=Y*Y 

60 F0RK=1T088* Z : D=A-B+CC : Y=X* 2*Y 

+CI :X=D:A=X*X:B=Y*Y: IFA+B>32 THE 

N70 ELSENEXT 

70 C=INT(K/(8*Z) ) :IFC=0 THEN 110 

100 HSET(NX+60,NY-5,C) :HSET(260~ 

NX,195-NY,C) 

110 NEXTNY,NX 

120 GOTO120 
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The Time Sheet 
by Kyle Ketchel 



16K 
ECB 



This program was written for those who own their own business 
and employ others. It's nice and short so you don't have to spend 
long hours typing it in. Once you've keyed it in. save the program 
to tape or disk, whichever you prefer. Then run it. The first prompt 
tells you what the program is and what it does if you continue. Then 
it asks you to enter your company's name, address and telephone 
number. Finally it asks how many copies of that address you want 
printed. 

Timesht is set up on an Olivetti PR2300 ink-jet printer. I know 
there aren't very many around, so you will have to replace some 
of the lines with your own printer requirements. (See Table 1.) 

The listing: timesht 

' COPYRIGHT 1989 FAL SOFT, INC 

10 ' **WEEKLY TIME SHEET** 

20 ' "MAIN SCREEN* 

30 CLEAR1000 

40 CLS:PRINT@39, "WEEKLY TIME SHE 

ET" 

50 PRINT@96,"THIS PROGRAM WILL P 
RINT A WEEKLY TIME SHEET FOR YOU 
R EMPLOYEES . " 

51 LINE INPUT "YOUR COMPANY NAME 
: " ; Q5 

52 LINE INPUT "COMPANY ADDRESS 
: " ; R$ 

53 LINE INPUT "CITY, STATE, ZIP 
:";S$ 

54 LINE INPUT "TELEPHONE #. 

:";U$ 

60 PRINT: INPUT "HOW MANY COPYS " 

;x 

70 PRINT: PRINT "HOLD ON, I'M PRI 

NTING. . . . ." :FORI=1TOX 

80 '**PRINTING INFO** 

90 PRINT#-2,CHR$ (27) ; "3";CHR$ (27 

) ; 1 "";CHR5 (27 ) ; " *1" ;Q$ 

100 PRINT#-2,CHR$ (27) ;"4";CHR$ (2 

7) ;"%";CHR$ (27) ; '» + " 

110 PRIMT#-2,TAB(41) ;R$ 

120 PRINT#-2,TAB(41) ;S$ 

130 PRINT#-2,TAB(41) ;U$ 

150 PRINT#-2,CHR$<27) ;"$3":PRINT 

#-2, TAB (30) ; "WEEKLY TIME SHEET" 

160 PRINT#-2,CHR$ (27) ; "*0" 

170 A$=STRING$ (35, " ">:B$=STRING 

$(15, " ") :C$=STRING$ (6, " "):D$=S 

THINGS (28," ") :F$-STRING$ (75, . " " 

) :G$=STRING$ (75, " ") :H$=STRING$ ( 

75," ") : J$=STRING$ (10, " ") 

180 PRINT#-2, "YOUR NAME ; "; A$; "WE 

EK DATE:";B$ 

190 PRINT#-2, "DAY"; C$; "TIME IN"; 



Line 


# 


90- 


This line sets up the printer for double width 




and double height characters. 


100- 


Turns off double width and double height 




characters. 


150 - 


Sets up vertical spacing to three spaces. 


160 


Turns on the underlining. 


2UU- 


Switches from 10 cpi to 12 cpi. 


260- 


General reset of all printer functions. 




Table I: Printer Set-Up Lines 



'SUN 



"?F$ 
";G$ 
";F$;PRINT#- 



";F$ 
";F$ 



CS; "LUNCH OUT" ; CS ; "LUNCH IN";C$; 

"TIME OUT";CS 

200 PRINT#-2,CHR$(27)"=* 

";F$ 

210 PRINT#-2, "MON 
220 PRINT#-2, "TUES 
230 PRINT#-2, "WED 
2, "THURS: ";H$ 
240 PRINT#-2, "FRI 
245 PRINT#-2, "SAT 
250 PRINT* -2, "TOTAL HOURS ;"; JO ; " 
AMOUNT PAID:";J$ 
260 PRINT#-2,CHRS(27) ;"0" 
270 NEXT I 

280 CLS:PRINT@2 5 6, "WOULD YOU LIK 
E TO RETURN TO THE MAIN SCREEN" : 
INPUT MS 

290 IF M$="Y M THEN 20 
300 IF M$="N M THEN 310 
310 '***ENDING SCREEN*** 
320 CLS:PRINT@196, "THANK YOU FOR 
USING ONE OF THE FINE PR 
ODUCTS FROM-" :FORX=lTOl 500 
330 NEXTX 

340 CLS(0) :PRINT@229,"* KETCH EN 
TERPRISES *" 

350 FORT=1TO2000:NEKTT:POKE113, 3 
:EXEC40999 



Submissions to "Novices Niche" are welcome from everyone. 
We like to run a variety of short programs that can be typed in 
at one screen sitting and are useful, educational and fu n. Keep in 
mind, although the short programs are limited in scope, many 
novice programmers find it enjoyable and quite educational to 
improve the software written by others. 

Program submissions must be on tape or disk. We're sorry, but 
we cannot key in program listings. All programs should be 
supported by some editorial commentary explaining how the 
program works. If your submission is accepted for publication, 
the payment rate will be established and agreed upon prior to 
publication. 
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CoCo3 




Eliminate the tedious chore of swapping disks 
while saving half-screens 



High-Capacity Screen Dumps 
for the Shoestring Desktop Publisher, 

Part 3 



By H. Allen Curtis 



In this article I include what I did not 
have space for i n Part 2 : i nformation on 
how to give DESKTGPH the ability to 
save and load a half-screen — specifically 
the left half. I also want the driver programs, 
DRIVERHT and DRIVERHE, to load and proc- 
ess such half-screens. These capabilities 
allow DESKTOPH to save on one side of a 
single disk all 12 haif-screens required for 
a three-column printout produced in the 
800 or 960 dots-per-line graphics mode. 
The capabilities more importantly elimi- 
nate the burdensome, tedious and some- 
limes; nerve-nicking necessity of swapping 
disks five times during the prncess of gen- 
erating and saving 12 half-screens. Fur- 
thermore, no swaps are needed while the 
printout is produced. 

I am also taking the opportunity here to 
point out a bug in the CoCo 3 ROM, which 
caused some difficulties in the program- 
ming of DRIVERHT and DRIVERHE. I have 

H. Allen Curtis is interested in 1 7th and 
}8th century history and enjoys hiking 
through the colonial capital of Wil- 
liamsburg, Virginia, where he lives. He 
balances past and present with his com- 
puter work- 



included a correction for those two pro- 
grams to overcome a remaining problem 
brought about by this bug. 

The following, seemingly innocent, 
two-line program causes a CoCo 3 hang- up 
that is unbreakable by means of the break 
key or the Reset button: 

10 CLEAR200.&H3FFF 

20 WIDTH40 

ReplacingWIDTH40 with WIDTH30 leads toa 
similar unwanted result, 

In driverht and D R I v E RH E screens must 
be loaded and protected in the 1 6K bytes of 
RAM from hexadecimal addresses $4000 
through S7FFF. Because of the ROM rou- 
tine bug, neither the 40- nor 80-character- 
per line text screen of the CoCo 3 can be 
employed while 16K bytes of RAM are 
being protected. Thus all prompts during 
the printout process of the driver programs 
have to be made on the 32-character-per- 
line text screen. 

Part 2 of this series docs not provide for 
the following possibility: Suppose you enter 
an incorrect filename intended forthe proc- 
essing of a three-column printout, The driver 
is stopped and an error message is printed 



on the screen. In such a case, you likely 
want to rerun the driver program and type 
in a correct filename. Unfortunately a re- 
start introduces a W1DTH40 statement while 
the 16K bytes of memory are still being 
protected via an earlier executed 
CLEAR2Q0.&H3FFF, and hence the dreaded 
hangup ensues. 

Listings 1, 2 and 3 are patch programs 
— DHPATCH,HTPATCHandHEPATCH — to be 
merged with DH, DRIVERHT and DRIVERHE, 
respectively, to add the aforementioned 
capabilities to the latter programs. After 
typing each patch program, save it in ASCII 
format, using the ,A option of the SAVE 
command. 

To obtain the new DH, for instance, do 
the following: With the DH disk in yourdisk 
drive, type LQAD"DH" and press ENTER. Insert 
the patch program disk in yourdisk drive, 
type MERGE"DHPATCH" and press ENTER. 
Finally, insert the DH disk in your drive and 
type SAVE"DH" and press enter. Employ a 
similar procedure to obtain new DRIVERHT 
and DRIVERHE programs. 

If you have already saved, on two disks, 
12 half screens for a three column print- 
out, you might like to convert the 12 full- 
screen files to 12 half-screen files on a 
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single disk. This can be done by running 
the new Dh, obtaining the higher-resolution 
screen by using the R command, and select- 
ing the 1 command. When asked whether 
or not you want a half-screen, press N for 
No. Then type the filename of one of the 1 2 
full-screen files. After the command has 
been executed, insert a blank formatted 
disk in your drive and choose the com- 
mand. This time press Y for Yes when you 
are asked about the half-screen. Then type 
the filename of the screen File just loaded. 
When the half-screen is saved and you have 
returned to the graphics screen, you see that 
the screen is changed. It previously had 
characters printed only on the left half. 
Now three-quarters of the screen is full. 

The lower-left quadrant is copied onto the 

upper-right quadrant of the screen. The 



upper half of the screen is saved. When the 
half-screen file is eventually loaded during 
the printout process of either driver pro- 
gram, it is rearranged to the left half of the 
screen once again. 

To save 12 half-screens on a disk from 
scratch, use the screen generating and sav- 
ing process described in Part 2 of this 
article but without swapping disks. Also, 
always save each file in half-screen form. 

When you employ the I command of OH 
to load a half-screen file, the file is loaded 
into the upper half of the screen. The upper- 
right quadrant is copied onto the lower-left 
quadrant. Therefore three-quarters of the 
screen is occupied. This presents no prob- 
lem because the right half of the screen is 
effectively ignored during the eventual three- 
column printout process. 



The new 0R1VERHT and DRIVERHE 
programs, similar to their forebears, lead 
you through the printout process by means 
of prompts. For the three-column printout 
produced in the 800- or 960-dots-pcr-iiiie 
graphics mode, however, you must have 1 2 
half-screen files available on a single disk. 
The three-column printout for the 1920 
dots-per-line graphics mode cannot be 
changed and still requires the use of two 
disks containing six full-screen files each. 



(Questions or comments concerning this 
article may be addressed to the author at 
172 Dennis Drive, Williamsburg, VA 23185. 
Please enclose an SASE when requesting a 
reply.) □ 





Editors Note: The following files are saved 
on this months RAINBOW ON TAPE! DISK 
in tokeniied format. In order to merge them 
properly, you need to save them on a fresh 
disk in ASCII format using the ,A option of the 
SAVE command. 

Listing 1: DHPATCH 

6 A=A+30:A$="108E15F01E428D1CC62 
8A6C0A7805A26F930882833C8280A502 
6ED8E7A7B":GOSUB600:A=A+30;A$="B 
FFFA21E42398E7071BFFFA2CE5E008E4 
028C660D75039108E15F01E428D":GOS 
UB600 

7 A=A+30:A$="E7C628A680A7C05A26F 
930882833C8280A5026ED20C94120435 
552544953" :GOSUB600 

25 G0SUB825:IFK$-"Y" OR K$-"y"TI 
EN26ELSEGOSUB820; P0KE&HFFA2 , &H72 
:SAVEM"OUT1",&H4000,&H5FFF,&HAC7 
3:PGKE&HFFA2,&H71:SAVEM"0UT2",&F 


4000.&H5BFF.&HAC73:POKE&HFFA2.&H 

7A:RErJAME"0UTl/BIN"T0F$+ , 7HRl" :R 

ENAME"OUT2/BIN"TOF$+"/HR2": DRIVE 

0: RETURN 

26 EXEC&H163C:GOSUB820:POKE&HFFA 

2 ) &H70:SAVEM"OUT\&H4000,&H5DFF, 

&HAC73:P0KESHFFA2,&H7A:RENAME"0U 

T/BIN ,, TOF$+"/HR":DRIVE0: RETURN 

30 G0SUB825: IFK$="Y" OR K$="y"TH 

EN36ELSEGOSUB820:RENAMEF$+'7HR1" 

T0"INl/BIrr:RENAMEF$+'7HR2"T0"IN 

2/BIN" :PQKE&HFFA2.&H70:LOADM ,, rNl 

" : P0KE&HFFA2,&H71 : LOADM" IN2" :P0K 

E&HFFA2.&H7A 

36 GOSUB820: RENAME FJ+VHR" TO" IN/ 

BIN":POKE&HFFA2,&H70;LQADM"IN":P 

0KE&HFFA2.&H7A: RENAME" IN/B I N"T0F 

$+'7HR":DRIVE0:EXEC&Hl 671: RETURN 

825 G0SUB485:CLS: LOCATES. 8: PRINT 
"HALF SCREEN? (Y/N) "; 

826 K$=INKCY$:irK$=' ,,l TllEN826ELSE 
IFK$="Y" OR K$="y" OR K$-"N' OR 
K$="n"THENRETURNELSESQUND60,9:GO 
T0826 



Listing 2: htpatch 

155 S$(11)="CE5E008E4028C660D750 
C628A680A7C05A26F930882833C8280A 
5026ED8E7A7BBFFFA239CE5EF08E4118 
20DACE5FE08E420820D2CE5EA08E40C8 
20CA'7CC11)=7439 

185 C=0:Y=&H1300:FORJ=1TO60:A$=M 
ID$(S$<11),2*J-1,2):A-VAL("&H"+A 
$ ) : C-C+A : POKEY . A : Y=Y+1 : NEXT: I FC< 
,>C(11)THENCLS3:L0CATE8.12:PRINT" 
TYPING ERROR IN LINE 155 . " : END 



540 IFK=1THENCLEAR200,&H3FFF:K=1 
:X(1)=&H109A:X(2)=&H10D4:X(3)=SH 
10ED:X(4)=&H1108:Y(1)=&H1300:Y(2 
)=&H1324:Y(3)=&H132C:Y(4)=&H1334 
ELSECLEAR200,&H3FFF:K-2:X(1)-&H 
1085:X(2)=&H10BC:X(3)-&H10CC:X(4 
)=&H10DF 

545 ON ERR GOTO800 
590 FORI=1TO4:POKEH,&H70: LOADM F 
$+L$(I)+ , 7HR"+D$,0(I):P0KEH+l,&H 
71 : EXECY C I ) :P0KEH,&H7?:P0KEH+1 ,& 
H73: LOADM F$+M${ I ) + "/HR"+D$ .Of I ) 
:EXECY(I) 



64 



THE RAINBOW 



October 1989 



600 LOADM F$+R$(I)+"/HR"+D$,0(I) 
:EXECY( I ) rEXECXC I ) :NEXT 

610 ' 

620 * 

630 ' 

640 " 

650 PRINT#-2: IFK=1THENCLEAR20B.& 



H7FFF:K=1ELSECLEAR200.&H7FFF: K=? 
660 GOTO500 

800 P0KE&HFFA2,&H7A:POKESHFFA3.& 
H7B:CLEAR200,&H7FFF:CLS:FORI=1TO 
2 :PRINT@196 , "CHECK FILENAME AND 
DRIVE" : NEXT: PRINT" NUMBER (IF 
USFD),": PRINT" THEN RERUN." 



Listing 3: HE PATCH 

125 S$(8)="CE5E008E4028C660D750C 

628A680A7C05A26F930882833C8280A5 

026ED8E7A76BFFFA239":C(8)=4335 

165 C=0:Y=&H13B0:FORJ=1TO36:A$=M 

ID$(S$(8),2*J-1,2):A=VAL("&H"+A$ 

):C=C+A:POKEY,A:Y=Y+l:NEXT:IFC<> 

C( 8 )THENCLS3: LOCATES, 12 :PRINT"TY 

PING ERROR IN LINE 125.":END 

510 1FK-1THENCLEAR200.&H3FFF : K-l 

ELSEIFK=2THENCLEAR200,&H3FFF:K=2 

ELSECLEAR200,&H3FFF:K=3 

515 H=&HFFA2:Y=&H1300:ON ERR GOT 

0800 



545 IFK=3THENF0RI=1T04:P0KEH,&H7 
0:LOAOM F$+L$(I)+"/HR"+D$:POKEH+ 
1 ,&H71 : EXECY : POKEH,4H72 : LOADM F$ 
+M$(I)+"/HR"+D$:P0KEH+l,&H73:EXE 
CY : LOADM F$+R$( I ) + "7HR"+D$ : EXECY 
:EXEC&H1298:NEX1 :GOTG630 
630 I FK=1THENCLEAR200 .&H7FFF : K-l 
ELSEIFK=2THENCLEAR200,&H7FFF:K=2 
ELSECLEAR200,&H7FFF:K=3 
635 GOTO470 
775 K=3 

800 PnKFAHFFA?,AH7A:PnKFftHFFA3,A 
H7B:GLEAR200.SH7FFF :CLS: F0RI-1T0 
2:PRINT@196. "CHECK FILENAME AND 
DRIVE" :NEXT:PRINT M NUMBER (IF 
USED).":PRINT" THEN RERUN." 
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Telepak II $49.95 

The Telepak II Is last becoming Uie new standard for Color Computer Telecommunications. Baud rates to 
19,200 band. Comes complete with 3' DB25 cable that will connect directly with any standard modem or 
terminal. The latest In microchip technology. Does NOT require a multipak interface. Gold connectors. 



2400 baud Modem 
only $139.95 

3/12/2400 baud. Auto-dial /answer. AT 

command set. 2 year warranty and 6 foot 

cable. (4-pin or DB25- please specify) 



New 40 track-double 
sided drives— $34.95! 

Full height - Bare drives. Limited quantities. 

Also used / fully tested drives for only $24,95 ea. 

Order yours now! 



UP nnC - Coco m DOS - What your Coco should have been born with 

• *-*V#%^ Load/Save CM3-MGE grfx. Auto-boot even OS-9! Easy ML config prgm. 
Choose Boot- up Screen width .palettes, baud rates, step rates,35/40 trk. 



ONLY 

$24.95 



V-term $39.95 

version 3.02. RSDOS 

Supercomm. .$29.95 
New! for OS-9 LH 

Cables ..Etc. 

4-pin to DB25... $12.95 
(specify modem or printer) 

DB25 M-M • 6' $9.95 

DB25 M-F- 6' $9.95 

Magnavox RGB. ,..$14.95 



Alpha Software products: 



Warp One.Windowing 


Terminal..$34.95 






OS-9 Level 2 BBS... 


$29.95 


Presto-Partner 


$29.95 


Multi-Menu.... ........ 


£J3.35 




Level II Tools 


.$24.95 


Disk manager tree... 


.$29.95 




TCCHHOLOGICE 

Visa, MC, C.O.D. or your 

personal check accepted. 

Add $3.00 shpg/hldg. 

C.O.D.- add $3.00 

P.O. Box 63196 

Wichita, KS 67203 
316-946-0440 
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1 BAS I C Tra i ning 



16 K ECB 




We are at the mid-point in our graphics 
series. There is so much uncovered and 
deemphasized material to discuss in BASIC, 
this may be a good time to step back, take 
a pause and review some items the new- 
comer to basic programming may find 
interesting and useful. 

In the good old days of the 4K and 16K 
CoCo, memory' was always at a premium 
and hoarded by the programmer. Tight 
memory created disciplined programs. 
Every trick in the book was hungrily gobbled 
up to make a tight, shipshape program 
listing without loose and redundant pro- 
gram lines and routines. 

With oodles of memory, who cares about 
keeping a weather-eye on remaining 
memory? To instill memory discipline, add 
some innocuous memory-wasting device, 
such as Line 1 of the listing, to reduce 
available memory. It is fun to make no- 
nonsense, memory-efficient program list- 
ings. 

Although disk is great, a cassette re- 
corder is still a valuable adjunct to your set- 
up, Personally, I find it especially useful to 
record sheet music I have copied in home- 
made four-voice harmony, thanks to Mat- 
thew Thompson's Music Synthesizer pro- 
gram. (June 1987, Page 58). 

As a newcomer, one of your main preoc- 
cupations is copying listings offered in the 
rainbow. The listings are usually error- 
free as presented in the magazine. When 
you copy the listings, assume the bugs you 
encounter are not inherent but due to your 
own carelessness. Your worst enemy is the 
stingy program that saves memory relent- 
lessly by using compound program lines 
and unnecessary punctuation marks, (Re 
ferto the listings,) 

In Line 10 unmask and make operative 
the GOTO statement. Enter EDIT10. then 
press the space bar four times to get under 
the REM marker. Press D and ENTER, then 
run the program. A few simple designs are 
displayed. The first one has a superim- 
posed bos element and does not show. 
Notice some of the design elements are S6, 
a rarely-chosen draw size. 

Press the break key and type LIST240. 
Copying boring lines with repetitious, look- 
alike units drives me up the wall because 
there are no blank spaces to break up the 
long chain of characters. There is an excel- 
lent chance 1 will create a bug copying this 

Florida-based Joseph Kokn is a veteran 
writer aha programmer who specializes in 
introducing beginners to the powers of the 
Color Computer 
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line, either due to adding, omitting or erro- 
neously copying the characters. Copying a 
line such as this is certain to require the 
TLC of a debugging session. 

The first rule is to copy exactly as printed. 
Do not insert spaces or change anything. 
Now copy the first line. Stop at the end of 
the row of characters and scan your work to 
make sure the U4 butts up against the mar- 
gin — exactly as in the original. Copy the 
second line. Stop and check to sec if the 4 
is under the 4 above. Also, check if a 4 is 
under the comma. 

After you copy the third line, check to 
see if the G is under the 4 at the right-hand 
border. Suppose the G was under the R? If 
the L in the third line is in its proper slot, 
you omitted the character. 

You may as well get in the Edit mode; 
enter EDIT ZAG, type si C and press the space 
bar. Then pick up the L and walk through 
the third line. Read each character aloud as 
you pass by it (by pressing the spacebar). 
When your cursor is over the location for 
the missing character, press I (for Insert), 
type the missing character, and press EN- 
TER to resave the line in memory. 

Let's say you finish the fourth row, and 
R6 of the fifth row lines up at the right 
margin. It is a sure indicator that you skipped 
a pair of characters — usually two succeed- 
ing ones. Finish up and check the final 
quote mark to make sure it lines up under D. 

After copying a few such program lines, 
run the program and see if any FC, SN or 
TM error messages pop up, This is a fine 
time to debug run-of-the-mill errors, espe- 
cially if you are faced with zillions of 
bunched-up basic or hexadecimal program 
characters, 



Put in some errors by typing EDIT24Q 
and pressing the space bar two times, then 
typing C and pressing the space bar three 
times. Now type C S and press the space bar 
eight times, Finally, type C T and press 
Enter, then run the program. 

• SN Error — correct the in DRAW and 
run the program. 

• FC Error — correct the S in BM and 
run the program. 

• FC Error — change the T to R and run 
the program. 

• If you omitted the starting quotation 
marks, a TM Error is displayed. 

There are some errors not readily appar- 
ent. If you changed the first r4 to H4, and ran 
it, you would be alerted to a possible char- 
acter substitution error. These kinds of er- 
rors are tricky because you may not realize 
what the author intended. If it doesn't look 
right, be suspicious. 

The third rule is: When you complete a 
program line, no matter what length, check 
to see if it aligns below the correct charac- 
ter. If you notice an added or removed 
harmless blank space, stop and make the 
adjustment, It is much easier to compare 
printed listing lines with the window dis- 
play if they are identical. Mistakes have a 
tendency to be highlighted. Some common 
copying errors are: pressing an S for $, a 
period for a comma, a minus for an equal 
sign, and a left parenthesis for a right one. 

When creating a BASIC program, it is 
important to avoid variables I and 0. Try to 
use the same string variuble for a com- 
monly used function such as A$=TMKEY$ or 
the variable Z in FOR 2=1 TO 2000. At one 
time computer hackers were hung up on the 
FOR l-etc. bit. In a lot of texts I is still a 
preferred variable. The same goes for and 
Ot. I is easily confused with I and O with 0. 
Avoid variables such as x 1 or Y 1; use XX or 
VY, which stand out plainly. 

Number your program lines in incre- 
ments of 1 0, beginning with 1 0. Use a line 
for the title. This increment allows plenty 
of room to add future unanticipated lines or 
routines without being forced to renumber 
the program lines — mentally throwing 
yourself for a loop while attempting to 
search out an area of the program suddenly 
located elsewhere. 

You can readily follow my lust-minute 
additions and alterations in the listing; Lines 
25 and 211 are obvious examples. The 
most important reminder is to make fre- 
quent copies of work in progress, being 
sure to number the copies in succession. 
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Make Some Handy Tandy 
Connections. 



The largest group of Tandy* users in the world 
shares tts problems and solutions online every day in 
CompuServe's Tandy Forums. And you can join them. 

You'll find users of every kind of Tandy computer, 
who have worked the bugs Out of any application 
you're likely to encounter - from CoCo games and the 
OS 9 operating system to the most advanced program- 
ming problems for MS-DOS* desktops and laptops. 

Tandy Forums are the first place you'll hear 
about new products, sometimes even as they're being 



developed. Find out which software is best for your 
applications, And keep up with the latest information 
on upgrades as soon as they're available. There's no 
better way to get more out of your Tandy. 

To join CompuServe, see your computer 
dealer To order direct or for more information, call 
800 848-8199. If you're already a member, type GO 
TANDYNET at any ! prompt. 



CompuServe 



Creativity implies beginning one task 
and then, in a flurry of inspirational activ- 
ity, veering off onto a tangent to develop a 
newer, more enticing or intriguing idea. 
Thus it happened 1 wanted to work out a 
system of adding two hexadecimal values, 
using paper and pencil, without converting 
the values to binary and getting googly- 
eyed from the ubiquitous ones and zeroes. 

I figured out a system to add $08 to $0F: 



S08 + $0F = $17 

$F=15.08 + 15 = 23 

(in decimal addition of hexadecimal 
values.) 

23-16=7 



The 7 is the unit value and 16 is a carry 
of one to the next column, thus 1 7$ is the 
answer. Clear as mud? 

Verify this by using your CoCo in the 
immediate mode, without program line 
numbers. S 1 7 is equal to Decimal 23. Type 
PRINT mil and press ENTER. 

Try another; 

33A + B0A=? 

$A=10, $A+SA=20 decimal, 

20-16=4, the right digit value. 

The 16 isacarry ] to the middle column. 
The middle digit value is 1+3+0=4. The 
highest column value is B=I 1+3=14, 14=$E. 
$E44, CnCo tells us, is 3652 decimal. But 
does SE44 = 3652? Out came the pencil and 
paper. Working overtime. I calculated the 
unit column digit added to the next column, 
4*16=64, added to the last column. $E=14 
or 14*256=3584. 

Adding the three sums up: 



3584+64+4=3652 decimal. CoCo sure 
saves us a lot of work with PRINT &H.E44, 
ENTER. 

My next challenge was to make a parallel 
BASIC program to convert Hexadecimal 
Base 16 to Decimal Base 10. 

Type EDIT10 to restore the rem, and we 
get my useless hexadecimal conversion 
program, which I planned to make valid for 
all values from $0000 to SFFFF. 

I am certain there are numerous alter- 
nate programs to do the same job in BASIC. 
This is just my program. Variable m was 
the string Variable I chose, This was due to 
the variable being both numerals from to 
9, and letters from A=10, R=11, C=12, 
D= 1 3, E=14 and F=I5, the Base=16.The 
four values are. from left to right. J $.K$,L$ 
and MI. 

Line 60 plucked out the highest value 
using lefts. The lowest right value was 
isolated using RIGHT$. The middle values 
were KJ and L$ and determined via M1D$, 

The J I highest figure was based on a 
constant multiplier of 4096. Kt, the next 
highest, used 256. L$,the third figure, used 
16, and M$ used 1. This was an expanded 
version of the pencil-and-paper system 1 
used above. 

Line 60 directs us to a G0SLJ Bat Line 100 
to convert all the letter and number values, 
from through F, into a compatible for- 
mat. 

Line 100 converts J$-"A" to J-4096*A. 
Rather than using J =4096*1 0, 1 saved CoCo 
the bother and calculated all the jt values 
from AtoF. If JJ="F", the solution would 
be j-409fi*15 or 61440. That left the J$ 
values of I to 9*4096, which converted to 
J-VAI_CJ$)*4096. A return from the rou- 
tine ran us over to the second highest value, 
K J. It was identical ly treated as lines 60 and 



100. and in lines 70 and 1 1 (except for the 
256 multiplier). The last two figures were 
similarly worked up with a multiplication 
factor of 16 and 1, respectively. 

Line 200 added up the sum of the four 
figures to give the grand total decimal 
value, which was duly printed at Location 
Y, adjacent to the input string value at 
Location X. Line 254 gave the starting 
location of the first row of conversions. 

The plan was to allow for about 10 
different values for handy comparisons. 
Line 25 also sets the counter. G to 0. Line 
21 1 incremented the relocation of each new 
row, then sent CoCo back to Line 30 for 
more hexadecimal figures. 

At this point I ran into a creepy-crawly 
bug. If you want to reproduce the bug, 
temporarily delete M$="0 n ; from Line 21 1. 
The bug wasn't hard to isolate since the 
trouble was confined to the lowest value, 
MS. For instance; 00 F F gave 255; 00 F E gave 
255; and OOFD gave 255, all the way down 
to 00 F0. When I tried 00EF, 1 got 239 and 
promptly reinvented the mistake as I worked 
down to 00 EO. Since M$ was set at 15 in 
OOFF, the last digit kept showing F, so all 
the values were 25 5. M$ wasn't reset to 0, so 
all the decimal conversions were incorrect 
as 1 worked down to 0OF0. Finally, QQEF 
gave the right answer and then reverted to 
a bunch of errors. Now you know why I was 
forced to reset M $ each time a decimal value 
was displayed. 

Your challenge is to expand this pro- 
gram to cover six figures, 000000 to FFFFFF. 
If this listing is useless, you will only be 
making a more powerful useless program. 
You never know when some bit of knowl- 
edge or practice may stand you in good 
stead; and if you are aiming at mastering 
assembly language, it surely won't hurt. □ 



The listing: NEWCOMER 

'<LISTING1> 

1 DIMA(350),B(350}.C(350) 
10 CLS: 'GOTQ230 

20 PR1NT@2, "ENTER FOUR DIGITS. F 

ILL IN UNUSED SPACES WITH 

ZEROS, 00F0 FOR F0: 01E3 F 

OR 1E3. 

25 X=129:V=146:G=0 

30 PRINT@X,"HEX. CODE:"; 

40 L1NEINPUTW$ 

60 J$=LEFT$(Wt,l>:GOSUB100 

70 K$=M1D*{W$.2,1):GQSUB110 

80 L$=MID$(W$.3,1):GOSUB120 

90 M$=RIGHTJ(W$ P 1):GOSUB130:GOTO 

200 

100 IF Jt="A" THEN J=40960 ELSE 

IF J$="B" THEN J-45056 ELSE IF J 

%= V Z" THEM J=49152 ELSE IF JI="D 

" THEN J-53284 ELSE IF Ji-"E* TH 

EN J=57344 ELSE IF J$="F n THEN J 

=61440 ELSE J=VAL(JJ)*4096:RETLIR 

N 

110 IF KS="A" THEN K=2560 ELSE I 

F K$-"B" THEN K=2816 ELSE IF K$= 

"C" THEN K=3072 ELSE IF K3="D" T 



HEN K-3328 ELSE IF KJ="E" THEN K 
=3584 ELSE IF K$-"F" THEN K-3B40 

ELSE K=VAL(K$)*256:RETURN 
120 IF L$="A" THEN L=160 ELSE IF 

L$="B" THEN L=176 ELSE IF L$-"C 
" THEN L=192 ELSE IF L$-°D" THEN 

L-208 ELSE IF L$-="E" THEN L=224 

ELSE IF LI-'T" THEN L=240 ELSE 
L=VAKU)*16: RETURN 
130 IF M$='A" THEN M=10 ELSE IF 
M$="B" THEN H-ll ELSE IF M$-"C" 
THEN M-12 ELSE IF M$="D" THEN M= 
13 ELSE IF H$="E" THEN M-14 ELSE 

IF M$="F" THEN M=15 ELSE M=VAL( 
M$); RETURN 
200 N-J+K+L+M 

210 PRINTS . "DECIMAL" :N 

211 MS="0":G=G+I:IF G=10 THEN FO 
R H=l TO 4000: NEXT: GOTO 10 

220 X=X+32:Y=Y+32:GOTO30 

230 PMODE4.1:PCLS:SCREEN1.0 

240 DRAW"BM12B,96S6R4D4L4U4BR4U4 

R4D4L4BR4LI4L4D4R4BR4D4L4U4R4U4R4 

L4D4BR4U4L4D4R4BR6E6F6G6H6BR6F6G 

6H6E6S8BR6U6E6R6F6P6G6L6H6S4BE7G 

R6E4R4F4D4G4L4H4U4" 

300 GOTO 300 



/R\ 
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<5™> Window Writer 1.2 

What we believe to be the best word processor available tor OS/9 just got better! You asked and we listened. We 

have added new features which the public has requested! 

DYNASPELL 102K WORD SPELLING CHECKER NOW AVAILABLE! 



More Versatile and Powerful. OS/9 Allows you Freedom and Power. The mouse 
and pull-down menus give you speed and ease of use. 



Quit Box 

\ 



Pull Down Menus Up and Down 

^T~~^ZI~~- — ^~~—-~- Arrows 

^ ■ v, — ==* — ■ -. ~~~~ S» — = Ij^^- 

Filc Edit Format Scorch > Style Help n \i 



Bta/L's Window Writer , 3 new OS.'S word processor. 
Text Cursor 



Mouse Cursor 



Pg 1 Line 1 Col 1 Insert On WWrap On File: name 



Text Cursor 
Position 



Insert Toggle 



Multi-Tasks 

Window Writer is 

the first Color Com- 
puter word processor 
which lakes full ad- 
vantage of OS/9. The 
result is a word 
processor which is 
fully as modern and 
professional in action 
as those previously 
available only for the 
IBM and Mac. The 
operating system al- 
lows true multi-task- 
ing with other 
programs or itself, 
Not limited to just 
printing one file and 
editing another. You 
can print one file in one window while you edit files in oilier 
windows. At the same lime you can be running a small program 
in another window. You can cut and paste between sections of 
files in different windows. 

Hi-Res Display 

Window Writer uses an Mil-column monitor display screen lor 
clarity. As shown in the above screen drawing, you can quickly 
see how to access the menus and help sereens. You can deter- 
mine the current position by page, line number, and column. The 
mouse can use this section to quickly change to a specific page 
or line in the file. The lext insert and word wrap toggles also are 
Indicated and changeable with the mouse button. 

Ram Disk 

A RAM disk is set up in Window Writer to make full use of 
all or a user specified portion of the memory on the 512K C0C0 
3. On the 12HK C0C0 a smaller RAM disk is set up to still allow 
use of all available memory lot lile editing. For use ol all features, 
a5l2K machine is required. 

The RAM disk is used for storage of the file(s) being edited, 
for the clipboard for cut and paste, and as a print spooler for the 
file being printed. Window Writer's clipboard can be saved to 
disk or pasted into any file being edited because files use the same 
clipboard memory. The RAM disk also can be used with other 
OS/9 programs, 



Word Wrap 
Toggle 



Current 
Pile Name 



Pull Down 

Menus and 

Help Screens 

A lull selection of pull 
down menus and detailed 
help screens make learn- 
ing easy and are only a key 
stroke (or mouse click) 
away. All menus and help 
screens can be user con 
figured lor everything in- 
cluding menu colors and 
contents. You don't like 
the color of a menu? You 
think one help item 
should be listed different- 
ly? Change them! 

The menus and help 
screens can be reached by 
cursor keys or the mouse 



Mail-Merge 



Wilh Window Writer you can create form letters and send 
them put to a list ol addresses in an address file. First names or 
other information can he added to "personalize" these letters. 



(or joystick) or can be accessed by control kevs. 




Upgrade Policy: 

A free replacement for 
earlier versions of Window 
Write! is available in the US 
until October 31, 1989. Call 
us at 215-837-1917 for in- 
structions. PLEASE do not 
call the 800 number. 



Editing is a snap with OWL's Efficient Mouse Usage' 



Editing 

Like most modern word processors, with Window Writer 
there is always more than one way to access any editing feature. 
You can access editing by menus using 
mouse, "keyboard mouse", or through 
control keys. Full help screens are 
quickly available lor all editing fea- 
tures. A help screen can be left visible 
while needed and (hen quickly 
removed toget hack to lull screen edit- 
in iz. 



Marc 



One nice feature is the price: 

only $59. 

I or the DynaSpell Spelling 
Checker by Dale Puckett includ- 
ing the 102 K Word Dictionary: 

only $20. additional! 




P.O. Box 116 A 
MtrUlo*n, PA 19539 

— ORnKR LINES (onlyj — 
(BOO) 245-6228 

(215) 682-6855, I'M 




OWL-WARE 



Proven 



On the Razor's Edge off 



i. — 



The Hard Drive's New Frontier: 

The Most Advanced Color Computer 
Hard Drive System Ever Offered! 

Fast No-Halt SCSI Floppies Using Optional SCSI Controller 
Proven Performance for Demanding Home or Business Users 



OWL-WARE has now been supplying 
Color Computer hard drive systems for 
over 4 years. We have reached our posi- 
tion in the hard drive market by 
providing our customers with a high 
quality product that they can be proud 
to own and use. Our first concern has 
always been quality and sound design. 

We are now announcing our most ad- 
vanced hard drive system ever. Using 
the optional OMT1 5200 SCSI control- 
ler with our Hard Drive Interface, our 
new system will support no-halt lloppy 
drives. You need not wait while typing 
or worry about clock time losses. Why 
be limited to 3 floppy drives? A com- 
plete system could now consist of 1-3 
standard CoCo floppy drives, 1-2 (or 
more) hard drives, and 1-2 no-halt flop- 
pies using slandard (not just CoCo) 
OS/9 formal. You can use single or 
double-sided 40 or 80 track drives with 
the SCSI no-halt controller. 

There are several new features with this 
improved interface. These include: 



• Full SASI/SCSI compatible (this al- 
lows many add-ons to the versatile 
SCSI buss) 

• No-Halt Floppies with optional SCSI 
controller allows full type-ahead 
during access 

•Low factory-direct prices 

•Fast Delivery from factory stock 

•Optional Real Time Clock with built 
in battery (3-10 year lifetime) 

•With the Clock you have 240 Bytes of 
battery backed up RAM for password 
protection or data storage! 

•Same super stable LRTech quality 

Our quality is obvious when compared 
to any other Hard Drive system or inter- 
face. Even the box is special. Our 
systems have always had a tan. Has our 
competition just heard about them? 




Interface Price only: $85 . 



Real Time Clock-RAM: $25. 



J 



20 Meg. 40 Meg. 80 Meg. 

(2X40 Meg.) 
System Prices: (Includes Hard Drive, case, & fan, SASI Controller* 
LR/OWL Interlace, Software. Fully assembled and tested.) 

$519. $629. $929. 

Super System Prices: (LR/qwl System as above but omti 5200 
SCSI Controller AND 3.5" 80 Track floppy Drive in same case) 

$649. $759. $1099.(2 cases) 

*SASI controller is unused surplus. Add $75 for OMTI SCSI 



OWL Hard Drive BASIC 3 

There have been several ads in this 
magazine about BASIC for Color 
Computer hard drive systems. These 
ads sometimes only tell a pari of the 
story. Our BASIC system price in- 
cludes assembly, testing, and 3-day 
burn-in period. We do not require a 
Multi-pak to operate. 

Our hard drive systems are fast, reli- 
able, and reasonable in price. This has 
been proven by hundreds of users over 
the past 4 years. We do not have lo turn 
off error checking for speed. We 
achieve high speed BASIC from a uni- 
que indexing method. 

OWL HD BASIC 3 is very fast due to 
our index method. Almost all BASIC 
commands including DSKINJ, DSKI$, 
and DSKOS. 

BASIC for Hard Drives 

Prices: With/Without Hard 

Drive 



$35./$79. 



Technology 



the Color Computer Frontier 





Floppy Drive Systems 

The Highest Quality for Years of Service 

(We have located a number of unused, surplus single sided drives for 
those who wish a quality, inexpensive system.) 

Drive Systems (Half Height, Double Sided, Direct 

Drives) $ 1 99 ■ (Same but Single sided) $ 1 85 

Drive systems complete with drive, controller, legal DOS, 
cable, case, power supply, and manual 

Drive 1 Systems (Half Height, Double Sided, Direct 

Drives) Ipl^C/. (Same but Single sided) $1 I 5» 

New 3.5", 720K Drives for OS-9 with case & 

Power Supply $1 #9. 

Drive 1 Systems have drive, case, power supply. (You may 
require optional cable and/or DOS chip to use) 

Special for 0/1 Combos (Drives 0,1,2,3) $295. 



HALF- HEIGH* DRIVE 

UPGRADES FOR RS 

HORIZONTAL GASES 

Why only double the capacity of your 
syst&nrwhenyou caniriple in rhcsame 
an,*? 1 R« includes: doubb-sided to fit 
yotii C^&. chip tdrtin both fiidevof new 
drive, hardware, and detailed instruc- 
tions. JEasy!. Takes aniy 5 minutes! 

podei $119, Model $12& 

500 501 or 502 



All drives arc new and fully assembled. 
We ship only FULLY TESTED and 
CERTIFIED at these low prices. We 
use Fuji, YE Data, and other fine 
brands. No drives are used or surplus 
unless otherwise stated to you when 
you order. We appear to be the one of 
the few advertisers in Rainbow who 
can truly make this claim. We have 5 
years experience in the CoCo disk 
drive market! We are able to provide 
support when you have a problem. 



OWL Phones 

Order Numbers (only) 
1-800-245-6228 
1-215^82-6855 



Technical Help 
1 -215-837-191 7 



OWL WARE Software Bundle 



Disk Tutorial/Utilities/Games 
DISK TUTOR Ver 1.1 

Learn how to use your disk drive from 
this multi-lesson^ machine language 
program. This tutor takes you through 
your lessons and corrects your mistakes 
for a quick, painless disk drive introduc- 
tion. (This professionally written tutor 
is easily worth the bundle's total price.) 

OWL DOS 

An operating system that gives faster 
disk access and allows the use of 
double-sided drives. Corrects a floating 
point number error on early CoCo sys- 
tems. 

COPY-IT 

Quickly copies selected programs be- 
tween disks, A wild card option selects 
groups of programs to copy. 

VERIFY 

Verifies reading of each sector. Bad 
sectors are listed on the screen. 

2 GAMES 

We will select 2 games from our stock. 
These sold for more than $2Q each. 

If sold separately this is more than $125 
worth of software!! 

Do not mistake this software with 
cheap, non-professional "Public 
Domain" software which is being of- 
fered by others. All of this software is 
copyrighted and professional in quality. 
The tutor is unique with us and has 
helped thousands of new users learn 
their disk drive. 

only $27.95 

(or even better) 

only $6,95 with 

any Disk Drive Purchase!! 

elur prices, include a. discount for cash 
ut do not include shipping. 

OWL-WABE das a liberal warranty policy, During the warran- 
ty period, all defective items wili be repaired or replaced at our 
option at no cost to me Buyer excepl for shipping cosis. Call 
our tech number for return. Return of non-defective or un- 
authorized returns are subject (<n » mruine charge. 



Drives 1 Year Warranty 



OWL-WARE 

P.O. BOX 116 

Mertztown, PA 19539 
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OS-9 Level II j a Q 




A utility for updating your files 



Reach Out 




and Touch OS-9 



By Joseph Cheek 



OS-9 stores a wealth of information 
on each file — attributes, owner, 
last-modified date, file size, etc., 
not to mention things Dire doesn't tell us 
about, such as date created, link count and 
segment lists. Most of these bits of infor 
mation cannot be changed, so what good 
are they? Don't they just clutter up the 
listing? What if they're wrong? Can we 
change them? Not with the standard OS-9 
programs included in the base package. I 



Joseph Cheek, a high .school junior who 
begat} usmg a CoCo t seven years ago, has 
been programming ever since, especially 
in basiow and OS-9. 



Listing 1: Touch 

PROCEDURE touch 

0000 TYPE regs=cc,a.b.dp:BYTE; x,y , u : INTEGER 

0025 DIM r: regs 

002 [ TYPE da te^year. month, day, hour. mi n: BYTE 

0049 DIM d:date 

0052 TYPE format-nameiSTRrNG[29] : sect(3):BYTE 

006D DIM f: format 

0076 DIM filename:STRINGL99] 

0082 DIM tail :STRING[29] 

008E DIM dt:STRING[14J 

009A DIM msd:STRlNG[4] 

00A6 DIM ke^:STRING[l] 

00B2 DIM posi :REAL 

00B9 DIM id:INTEGER 

00C0 DIM disk,ccode.dev(32):BYTE 

00D4 DIM touch, parautl, pa ram2: BOOLEAN 

00E3 PARAM nam:STRING[99]; dat : STRING[ 14] 

00 FA tail-"" 

0101 touch=TRUE 

0107 paraml=FALSE 

010D param2-FALSE 

0113 ccode=12 

011A RUN syscall tccode.r) 
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realized how nice it would be to use some 
of this information to my advantage. 

I received OS-9 as a birthday present 
almost a year ago and I immediately en- 
joyed it. It was powerful, elegant, fast — 
just what a programmer needs. I wanted to 
learn more about this operating system, but 
I could not find many books on the subject. 
So I read about UNIX instead. While the 
two operating systems are not exactly the 
same, Lhey are close enough that under- 
standing one helps me understand the other. 

I learned there are a lot more utilities on 
a UNIX system than on my OS-9 system, I 
had the operating system, but I just didn't 
have the utilities. Having a limited budget. 
I decided to write my own utilities with this 
wonderful language that comes with OS-9 
— BASLCm 

Touch lets you update your files' last- 
modified date, You give it the filename, 
and it updates the file header automatically. 
The utility can be used in one of three ways: 
with no parameters, with only a filename, 
or with a filename and a date. It prompis 
you for what you don't give it on the 
command line. 

If you give it no parameters, typing 
touch (or runb touch or basic09 touch) 
and pressing ENTER, it goes into a fully 
interactive mode and acts like an applica- 



0129 




ON ERROR GOTO 50 


012F 




f i lename=nam 


0137 




paraml=TRUE 


013D 




ON ERROR GOTO 101 


0143 




dt-dat 


014B 




IF dt-"" THEN 


0157 




dt-DATES 


Hl>in 




FNDIF 


015F 




ON ERROR 


0162 




param2=TRUE 


0168 




GOTO 101 


016C 


50 


PRINT CHRSU2); 


0175 




PRINT "TOUCH 0S9 filename creation date 


01A0 




PRINT "Written by Joseph Cheek for CSS" 


01C3 




PRINT 


01C5 




PRINT "Your UID is "; r.y; 


0100 




IF r.y-0 THEN PRINT " "; CHRJOl); " (Su 
: "!'"; CHRJ(7); 


0210 




CNDIF 


0212 




PRINT " . " 


0217 




REPEAT 


0219 




PRINT 


021B 


100 


INPUT "Enter filename far date change? 


0246 


101 


RUN ltou2C filename) 


0253 




IF LEFT$(filename.4)="CHD " THEN 


0266 




CUD RIGHT* (fi1enairie,LEN<filename)-4) 


0273 




GOTO 100 


0277 




ENOIF 


0279 




IF LEFT$(filenanie,3)="DIR" THEN 


0286 




SHELL ti lename 


0290 




GOTO 100 


0294 




END1F 


0296 




IF ASC!fi lename )<>47 THEN 


02A3 




OPEN #df sk . f i 1 ename: READ 


0ZAF 




ccode=$80 


02B7 




r.b-14 



editor" 



[Super/user)" ; CHRSC31) 



filename 




METRIC INDUSTRIES, INC. 




Model 101 

Serial to Parallel Printer Interface 

Works with any COCO 

Compatible with "Centronics" Parallel Input Printers 

Just turn the knob to select any one of 6 baud rates 300-9600 

Conies complete with cables to connect to your printer 

and computer 

Can be powered by most printers 

Model 104 Deluxe interface 
with "Modem Switch" 

* Same Features as 101 Plus 

+ Built in Serial Port for you ( Modem or other serial device 

* Switch between Serial Output and Parallel Output 

* Comes wfth cables to con nect to your computer and printer 

* Can be powered by most pri nters 

Model 105 Serial Switch 

* Connects to your COCO to give you 2 switch selectable 
Serial Ports 

* Comes with a 3 foot cable to connect to your computer 

* Now you can connect yourPhnter (or printer interface) 
and your Modem (or other serial device) to your COCO 
and flip the switch to use either device 

* Does not require power 

Cassette Label Printing Program 

* New Version 2 . 1 prl nt» 7 lines of i nformation 
on Cassette labels 

Comes on Tape with instructions to transfer to disk 
Menu driven, very easy to use 
Save and Load Labels from Tape and Disk 
Uses the features of your printer to print standard, 
expanded, and condensed characters 
Automatically Centers Each LI ne of Text 
Allows editing of label before printing 
Program comes with 24 labels to get you started 
16KECB required 



Some of the Printers 
That Can - 

Supply power for the 101 and 
104 are Radio Shack, Star, 
Okidata. Brother. Juki, and 
Smith Corona. 

Some Of the Prl nters 
That Cannot - 

Supply power for the interface* 
are Epson. Seikosha, 
Panasonic, Silver Reed and 
NEC, If your printer cannot 
supply power to the interface 
you can order your interface 
with the "P" option or you can 
supply your own AC adapter. 
We recommend the Radio 
Shack 273- 1 431 AC adapter 
with a 274-328 connector 
adapter. 

Write or call for more 
information or for technical 
assistance. 



Price List 




Model 101 


35.95 


Model 1 01 P 


41,95 


Model 1 04 


44.95 


Model 1 04P 


51.95 


Model 105 


14.95 



Cassette Label Program 6.95 
Pin Feed Cassette Labels: 
White 3.00/1 GO 



4 Pin Din Serial 
COCO Cables: 

Male/Male 6 foot 
Male/Fern ale 6 foot 
Female/Female 6 foot 
Other Lengths Available. 

At I items covered by a 
1 year warranty 



4.49 
4.49 
4.49 



Ordering Info 



* Free Shipping in the 
U.S.A. (except AK and HI) 
on all orders over $50 

* On orders under $50 
please add $2.50 for 
shipping and handling 

+ On orders outside the 
U.S.A. please write or call 
for shipping charges 



You Can Pay By: 

# VISA or MasterCard 

# Or send check or money 
order payable in U.S. funds 



Metric Industries Inc. 
P.O. Box 42396 
Cincinnati, OH 45242 



(513)677-0796 



October 1989 



THE RAINBOW 



73 



R 



AINBOWfest is the only computer show dedicated 
exclusively to your Tandy Color Computer. 

Nowhere else will you see as many CoCo- 
related products or be able to attend free seminars con- 
ducted by the top Color Computer experts. It's like receiving the 
latest issue of the rainbow in your mailbox! 

RAINBOWfest is a great opportunity for commercial 
programmers to show off new and innovative products for 
the first time, Somerset, New Jersey is the show to get infor- 
mation on capabilities for the CoCo, along with a terrific selec- 
tion of the latest CoCo software. In exhibit ufterexhibit, there 
will be demonstrations, opportunities to experi- 
ment with software and hardware, and spe- 
cial RAINBOWfest prices. 

Set your own pace between visiting 

exhibits and attending the valuable, tree 

seminars on all aspects of your CoCo — 

from improving BAStC skills to working with 

the sophisticated OS-9 operating system. 

Many people who write for the rain- 
bow— as well as those who are written about — 
' are there to meet you and answer questions. 
You'll also meet lots of other people who share 
your interest in the Color Computer. I t's a person- 
to-person event and a tremendous learning experience in a fun and 
relaxed atmosphere. 





As an additional treat for CoCo Kids of all ages, we've invited 
frisky feline CoCo Cat to join us for the show, RAINBOWfest has 
something for everyone in the family! 

I f you missed the fun at our last RAINBOWfest in 
Chicago, why don't you make plans now to . 
join us in Somerset? For members of the 
family who don't share your affinity 
forCoCo, there are many otherattrac 
tions in the Somerset area. 

The Somerset Hilton — Som 
erset, New Jersey, offers special rates for 
RAINBOWfest. The show opens Friday evening 
with a session from 7 p.m. to 10 p.m. It's a daytime 
show Saturday — The CoCo Community Breakfast 
(separate ticket required) is at 8 a.m., then the exhibit hall opens 
promptly at 10 a.m. and runs until 6 p.m. On Sunday, the exhibit 
hall opens at 1 1 a.m. and closes at 3 p.m. 

Tickets for RAINBOWfest may be obtained directly from 
THE rainbow. We'll also send you a reservation form so you can 
get a special room rate. 

The POSH way to go. You can have your travel arrangements 
and hotel reservations handled through RAINBOW affiliate. POSH 
Travel Assistance, Inc.. of Louisville. For the same POSH treat- 
ment many of our exhibitors enjoy, call POSH at (502) 89-3 33 1 1 . 
All POSH services are available atnocharge to RAINBOWfest at- 
tendees. 







FREE SEMINARS 



Cray Augsburg 

RAINBOW Managing Editor 
Writing for Publication 

Steve Bjork 
SRB Software 

Game Programming and Insider Hints 

Kevin Darling 

Independent Programmer 
Advanced OS-9 



Peter FIEisnn 

Game Point Software 
Imaging Through the CoCo 

Jon Gilbert 

Dir. Sales and Marketing 
General Videotex 
Inside Delphi 

Marty Goodman 

RAINBOW Contributing Editor 
2 CoCo Consultations Live 



Plus raffle items 
will be given 
away each day of 
the show, includ- 
ing three large, 
stuffed; hand- 
made CoCo Cats. 




Mike k Hudson 

Author ofUltiMusE 

Music and Other OS-9 Applications 

Greg Law 

RAINBOW Technical Editor 

OS-9 for Absolute Beginners 

Jeffrey Parker 

Independent Programmer & Author 
Desktop Publishing 

COCO COMMUNITY 
BREAKFAST 



Dale Puckett - RAINBOW Contributing Editor 

Dale L. Puckett, a freelance writer and programmer, serves as direetor- 
at-large of the OS-9 Users Group and is a member of the Computer Press As- 
sociation. His username on Delphi is dalep. 

Mr. Puckett will talk about the people involved in the ongoing develop- 
ment of OS-9 and milestones in OS-9: Crazy things which happened in its devel 
opment, mistakes, highlights and its future. 

Don't forget,.. 

If yours is one of the first SOU ticket orders, a coupon for a complimentary issue of The 
RAINBOW Third Book of Adventures will be enclosed with your tickets — ■ if yours is 
one of the first five orders received from your state, a coupon for a complimentary RAIN- 
BOWfest T-shirt will be enclosed with your tickets. So hurry up and place your order to 
take advantage of this offer. 






YES, I'm coming to Somerset! I want to save by buying tickets now at the special 
advance sale price. Breakfast tickets require advance reservations. 



_ Three-day ticket(s) at $9 each 
^One-day licket(s) at S7 each 



I 

I. 

J Circle one: Friday-Saturday-Sunday 

| Saturday CoCo Breakfast 

| at $12 each 

I RAINBOWfest T-shirt(s) 

at $6 each 
I Specify size: 
| _ _JS M L. XL 



total 
total 



Name 



total 



(please print) 

Address 

City 



total 



State 
ZIP 



| (T-shirts must he picked up at the door) 

I Handling Charge SI $1,00 

I TOTAL ENCLOSED 

I (U,S, Currency Only, Please) 

I J Also send me a hotel reservation card for The Somerset 

I Hilton ($65, single or $75 double room), 



Telephone . 

Company 

□ Payment Enclosed 

□ VISA Q MasterCard □ American Express 

Account Number 

Exp. Date . 

Signature 



■ Advance rickel deadline: October fi. I %9. Orders received less than two weeks prior to Show opening will be held for you al the dixir. Tickets will also be available at Itie dnor al a slightly 
! higher price. Tickcb will he mailed sis weeks prior tsi show. Children 4 and under, free; over 4, Full price. 

I Make checks payable to: THE RAINBOW. Mail lo: RAINBOWfou The FalNofi Building, 9509 U.S. Highway 42, P.O. Box 385, Pmspect, KY 40059. To make reservations by phone. 
lid Kentucky call (502) :2K 4492, orouiside Kentucky call (800) 847-<>3<W. 



tion program. It displays a little header and 
then prints your user ID number, beeping if 
you are the superuser (UID 0). This goes 
along with my belief that mere are not 
enough superuser privileges with OS-9. 
With Touch you can update any files if you 
are the superuser, but only your own if you 
arc not. 

It then asks you for the filename of the 
date you want to change. You can also enter 
chd or dir commands from this prompt 
(chd affects Touch only, not the underlying 
shell). If you did not type in a complete 
pathlist, Touch uses a system call to find the 
name of the device descriptor. This is be- 
cause of the algorithm the program uses. It 
treats the entire disk as one file and it needs 
to know the device name. 

If you do not own the file, it tells you so. 
If you are the superuser, it asks you if you 
want to "touch" it anyway. Press Y or N, If 
you press Y, you are presented with the 
date it was last modified and prompted for 
the new date. Enter the date in proper OS- 
9 yy/mm/dd hh:mm form. (It doesn't care 
about seconds — so don't add them.) It 
proceeds to change the date and asks if you 
want to touch any more files. If you press 
anything but Y, it ends and you are returned 
to the calling program. 

Secondly, if you give it one parameter, 
the fdename, Touch prompts for minima! 
information and displays a little informa- 
tion. If it is not your file and you are not 
allowed to change it, you are told and the 
program ends. You are asked for the new 
date, only not as verbosely as when the 
program receives no parameters. You are 
then given the new date. 

Lastly, if you give Touch both parame- 
ters, filename and date, it is changed with- 
out any commentfrom Touch, except when 
it is nut your file. Touch either terminates 
itself or asks for verification if you are the 
superuser. 

Note: When asked for the date, you can 
just press ENTER and the file is stamped 
with the current date and time, If you have 
only 128K, you cannot use the dir com- 
mand from the filename prompt. You should 
be able to with 5 1 2K. 

To use this program from the command 
line, you must type in Listing 1 and save the 
four programs in a file for later use by 
entering save* touch. Then run the pro- 
gram from BASIC09 and debug it, if neces- 
sary. Pack the programs in a directory that 
containsthellleSysCall by entering pack* 
/dd/emds/touch. If you have the SysCal 1 
file in BASJCTO's workspace memory, de- 
lete it first by typing kill sysca 1 1 and then 
pressing enter. Make sure this is not the 
same directory you saved Touch in. 

Now exit BAS1C09 by pressing CTRL- 
breafc or by typing bye. Change your cur- 



02C2 


r . a =d i s k 


02CE 


r.x-ADDR(dev) 


02DC 


RUM syscall ( ccode.r) 


02EB 


CLOSE #disk 


02F1 


insd="/' , +CHRt{dev(l))+CHRt(LAND(dev(2) 1 127)) 


030A 


ELSE 


030E 


msd=lEFT$(filename.3) 


0319 


ENDIF 


031B 


msd=msd+"#" 


0327 


IF ASC(filename)=47 OR ASCtfi lename)=46 THFN 


033C 


WHILE RIGHTSailename.no"/" DO 


034C 


ta i 1 =RlGHTt ( f i 1 ename . 1 J+ta i 1 


03 5 B 


f i lename-LEFTSCfil ename. LENf filename)-!) 


036B 


ENDWHILE 


036F 


fi Iename=LEFT${ filename, LEN (filename)- 1) 


037F 


ELSE 


0383 


tai 1 =f i 1 ename 


038B 


filenanie=", " 


0393 


ENDIF 


0395 


tai l=LEFTS(tail .LEN(tail) -1 )+CHR$( ASCCR1GHT*{ tail .1)3+128) 


03B1 


OPEN ffdisk.fi 1 ename :READ+D1R 


03BD 


LOOP 


03BF 


EXITIF E0F(#d1sk) THEN 


03C9 


CLOSE #d i s k 


03CF 


ERROR 216 


03D3 


ENDEXIT 


03D7 


GET #d!sk,f 


03E1 


RUN ltou2(f.name) 


03EE 


EXITIF SUBSTR(tan.f,name)-l THEN 


0401 


ENULXI 1 


0405 


ENDL00P 


0409 


posi=f.5ect(l)*16777216.+f.secU2)*65536.+f,sect(3)*256 +l 


0444 


CLOSE #disk 


044A 


OPEN //disk.msd:READ 


0456 


SEEK #d1sk.posi 


0460 


GET #disk,id 


046A 


GET #disk.d 


0474 


CLOSE #di"sk 


047A 


IF paraml-FALSE THEN 


0485 


PRINT 


0487 


ENDIF 


0489 


IF r.yOid THEN 


0499 


IF paraml AND r.yO0 THEN 


04AC 


PRINT "Touch: not your file" 


04C4 


END 


04C6 


ENDIF 


04 C 8 


PRINT "Not your file. " 


04DA 


touch=FALSE 


04E0 


IF r.y=0 THEN 


04EF 


PRINT "Touch anyway (Y/N)? »; 


0508 


GET #0,key 


0511 


PRINT 


0513 


RUN ltou2(key) 


051D 


IF key="Y" THEN touch=TRUF 


052F 


ENDIF 


0531 


ENDIF 


0533 


ENDIF 


0535 


IF touch THEN 


053E 


IF param2=FALSE THEN 


0549 


IF paraml=FALSE THEN 


0554 


PRINT "File was last modified on "; 


0573 


RUN pn ntda te ( d. yea r. d, month, d. day ,d. hour, d, ml n) 


05A0 


PRINT "Enter time to change it to (yy/mm/dd hh:mm)" 


05CF 


PRINT "(Hit [ENTER] for ": LEFTtfOATES 14)- ")"■ 


05EE 


ELSE 


05F2 


PRINT "Enter time to change to"; 


060E 


ENDIF 


0610 


INPUT dt 


0615 


IF dt-"* THEN dt=DATE$ 


0626 


ENDIF 


0628 


ENDIF 


062A 


RUN getdat.p(fit .d.year) 


063C 


RUN getdate(dt,d. month) 


064E 


RUN getdate(dt.d.day) 


0660 


RUN getdate(dt,d.hour) 


0672 


RUN getdate(dt.d.min) 


0684 


OPEN #disk.msd:WRITE 
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0690 
06A1 
06AB 
06B1 
06BA 
06C5 
06D5 
0702 
0704 
0706 
0706 
0723 
0727 
0738 
0730 
0746 
0748 
0752 
0759 
075F 
076B 

PROCEDURE 
0000 
0017 
0021 
0032 
0034 
003E 
004F 
0051 
005E 
006F 
0071 
007B 
008C 
008E 
0097 
PROCEDURE 
0000 
000C 
0013 
001A 
0026 
002 D 
003F 
004E 
006F 
007A 
007C 
0089 
0094 
009C 
PROCEDURE 



000C 
0013 

0025 
002C 
002 E 

003D 
004D 
0056 
0076 



0090 



SEEK #disk,posi+2. 
PUT ffdisk.d 
CLOSE tfdisk 
IF paraitll THEN 

IF param2-FAL5E THEN 
PRINT "Changed to ": 

RUN printdate(d.year,d.month,d .day.d.hour.d.min) 
ENDIF 
END 
ENDIF 

PRINT "Done.,. another (Y/N)? ": 
ELSE 

PRINT "Another (Y/N)? fl : 
ENDIF 

GET #0.key 
PRINT 

RUN ltou2(key) 
tall-*** 
touchHKUE 
UNTIL keyO"V" 
END "Done Touching . " 
pri ntdate 

PARAN year . month, day, hour. mi n: BYTE 
PRINT year; "/"; 
IF month<10 THEN PRINT "0" ; 
ENDIF 

PRINT month: "/": 
TF day<10 THEN PRINT "0": 
ENDIF 

PRINT day; " at " ; 
IF hour<10 THEN PRINT "0"; 
ENDIF 

PRINT hour; ":"; 
IF miri<10 THEN PRINT "0"; 
ENDIF 

PRINT min: *." 
END 
ItouZ 

DIM workstring;STRING[40] 
DIM count:!NTEGER 
DIM char:BYTE 
PARAH answer :STRING[40] 
workstring-" n 

FOR count=l TO LEN( answer) 
char=ASCCMIOU answer .count, 
IF char>96 AND char<123 OR 

char=char-32 
ENDIF 

workstring-workstring+CHRKchar) 
NEXT count 
answer=workstring 
END 
getdate 
DIM num:STRING[2] 
DIM char:BYTE 

PARAM date;STRING[14] ; time:BYTE 
num-"" 
REPEAT 
num=num+LEFT$tdate ,1) 
date-RIGHTKdate.LEN(date)-l) 
char=ASC(date) 
UNTIL char=32 OR char=47 OR char=58 OR date= n 
date=RIGHT$(date,LEN(date}-l) 
time=VAL(num) 
END 



,1)) 
char>224 



AND char<251 THEN 



Listing!: Touch. hip 



©TOUCH 
Syntax; 

Usage : 



Touch [<"<filenamc>"C."<date>"])] 

Updates a Tile's last modified date. Only the owner can modif 
the date. The Superuser (UID 0) can modify any file. Prompts 
for all information not specified as parameters. Will stamp 
file with current date if other date not specified. Written 
in Basic09. uses RunB run-time package. 



rent data directory to the directory you 
packed Touch into. Merge Touch and SysCal I 
into one file called T by entering merge 
touch syscail >t. Then delete the original 
packed Touch file and rename the new file 
by typing rename t touch. Copy it to your 
normal system execution directory, nor- 
mally the /dO/CMDS directory of your boot 
disk, if needed. 

Use Attr to reset Touch's permissions 
by typing attr /dO/cmds/touch e pe.Add 
Listing 2, Touch's help file, to the He 1 pmsg 
file in your Sys directory by using Ed i t or 
any word processor. Save the modified 
He! pmsg file before you quit. Make sure 
RunB is in your execution directory along 
with Touch and that it is executable, or else 
you cannot run it. Use Di r x e or Attr to 
determine RunB's permissions. 

You should now be able to run Touch 
from the OS9 prompt. You should also be 
able to get assistance with the He! p com- 
mand. 

You can delete everything from OR to 
<251 in the lt«u2 program, rename it to 
1 supper, and have a just-as-functional i s - 
upper program of about half the size. 

You cannot load Touch into memory 
and use it without having OS-9 load it from 
memory each time. You must load RunB (or 
BASIC09) into memory also. However, you 
can just type touch and press ENTER, and it 
will go into Interactive mode where you 
can switch disks, etc. That's what the built- 
in Chd and Di r commands are for. 

You can run BASIC09-packed procedures 
from shell scripts (procedure files) without 
having it end with an error if you replace 
filename params with runb filename par- 
entis. 

Following are some examples of how to 
use the program: 

Type os9: touch, then press ENTER 
(used interactively). 

Typeos9:touch "file nam e " 
(changes filename's last modified date; 
you are prompted for the date). 

Type os9 : touch ("filename", "yyf 
mmlddhh:mm" ) 

(chaxigssfilename's last modified date 
to the date you specified). 

Type os9:touch ( "filename" ."") 
(changes filename's date to current 
date and time). 



(Questions or comments concerning this 
article may be addressed to the author at 
2855 W, 7380 S, West Jordan, UT 84084. 
Please enclose an SASE when requesting a 
reply.) /R* 
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A "neighborly" two-dimensional array 
to help you generate new values 




The Graphics Corner 
Part III: Good Neighbors 



By William P. Nee 



Welcome again to "The Graphics 
Corner." We'll discuss a third 
way of creating computer graph 
ics. In the first article we used mathemati- 
cal equations to color points: in the second 
we used a one-dimensional array along 
with a color code to generate new array 
values and color them. This time we'll use 
a two-dimensional array with the concept 
of neighbors to generate new values and 
color them. 

Imagine you are in the center eel! of a 
grid. Your neighbors (depending on what 
type of computer program you're using) 
are either all of eight cells around you or 
four cells that touch sides with you (above, 
left, right and below). In this article the 
neighborhood consists of the fourcells that 
touch sides wiih the center cell. 

As with the previous article, you also 
need some type of code or rules to deter- 
mine how new values are generated. Ini- 
tially any cell can have a value between 
and 1 . Its next value is the total value of its 
four neighbors AND the number of colors 
you are using (including zero). Since we're 
running this program in PMODE 4, we have 
two colors (0 and I ) to use so the new value 
is the neighbor's sum AND 1. The new value 
for each cell is stored in a temporary two- 
dimensional array. When all the new val- 
ues are computed, they are transferred back 
to the original array and colored either as 



Bill Nee bucked the "snowbird" trend by 
retiring to Wisconsin from a banking ca- 
reer in Florida. He spends the long, cold 
winters writing programs for his CoCo. 



or 1. In PMODE 4 just those with a value of 
l getPSET. 

Listing 1 is an example of how this 
works in a 10-by-l() array with just the 
center cell havinga value of 1. Afteryou've 
run Listing 1 for a while, try increasing the 
array size to 20-by-20 (change the L in Line 
10 to 20). You've actually made the array 
four times larger, and it takes four times 
longer to compute. Imagine how long a 
100 by- 100 array takes! 

There is one way we can make this 
BASIC program quicker. Instead of check- 
ing the neighborhood of every point in the 
array, do it backwards. If a neighbor has no 
value, it doesn't affect the center cells; so 
we search just for those cells with a value of 
1. As soon as we find one, we increase the 
value of the four center cells around it. 
When finished, we AND all the cell values 
with 1 and do the same thing as if we've 
checked the neighbors of every cell. Since 
there is usually some zero-value cells, this 
method is quicker. Try Listing 2 and see ihe 
difference. 

As you can guess, this is still not fast 
enough, We need to design a machine lan- 
guage program along the lines of Listing 2 
that computes, stores and PSETs new val- 
ues. But how much memory does this take? 
The ML program doesn*t use too much 
memory, but the arrays do. Each array 
takes L times L bits, and there must be two 
of them. By the time we PCLCAR eight 
graphics pages, there isn'tenough memory 
left for a decent-sized array. 

However, in a 64K Color Computer 
there is another 32K just wailing for data 
storage, and we can access it from a ma- 



chine language program. We'll store the 
temporary values of a 1 69-by 1 69 array in 
high memory and let the screen itself store/ 
display the actual array values. 

Generally the program starts in PMODE 
4,1, stores a value of 1 in any cells you 
choose, and displays them. Then the ma- 
chine language program takes over, switches 
to PMODE 4 . 5, checks for every cell with a 
1 value and increases that cell's four center 
cell values by 1 in the temporary array in 
high RAM. When the screen is completely 
checked, the process reverses and the pro- 
gram goes back through the temporary 
aiTay in high RAM, There it looks for any 
cell with a value other than zero. ANDs it 
with 1 , and (if the value is still 1 ) PSETs the 
corresponding point on the screen. Then 
the program switches back to PMODE 4.1 
and repeats the entire process. Pressing any 
key and holding it down returns the ML 
program to BASIC. 

Let's go through Listing 3 one subrou- 
tine at a time. CLEAR (lines 140 through 
200) simply sets all of the temporary arrays 
($8000 through SF800) to zero. Next is 
PPO INT (Lines 420 through 720), where we 
find which points on the screen are set. 
Even though the temporary array starts at 
$8000, we begin saving data at $8 100 — 
I'll explain the reason why later. 

Now let's look at the locations of our 
screen coverage and the temporary array. 
The area we're using on the screen is from 
43, 1 1 (.v,.y location) to 2 1 3, 1 8 1 . Since graph- 
ics start at the location in $BA/BB, the byte. 
containing 43, 1 1 is graphics start plus 357. 
But the array is one space all the way 
around inside that rectangle, or 44,12 to 
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2 12, 180. We need to do this so any neigh- 
bor checked is still within the graphics 
block. To make it easier to initially check 
each point within the graphics block, the 
PPOIMT routine does it by bytes. At this 
point our data array is actually storing all 
the information about a graphics display 22 
bytes wide and 171 bits long (and that is 
30,096 bits of information). 

Let's follow the PPOINT routine. Regis- 
ter U contains the start of the actual data 
array and Register X the start of graphics; 
adding 357 to Register X gives it the ad- 
dress of the starting byte of our graphics 
array. Since all the symbols and operands 
in this subroutine are at Location $7000 
plus a value, I set the DP Register to $70; 
now the computer uses $7000 as the ad- 
dress and we only have to give the one-byte 
offset from that point, saving both time and 
memory. 

Activating SFFDF puts us in high RAM 

— any location above $7FFF is in high 
memory, The vertical counter is loaded 
with 171 and the horizontal counter with 22 

— the number of bytes across. Register A 
is loaded with the first byte to be checked 
and Register B with 8 — the number of bits 
to be checked in each byte, As Register A 
is shifted one space to the (eft, the "lost" bit 



goes to the CC Register. If that bit is a zero, 
the CC Register is clear and the program 
goes to CPPT, If it is a 1, the program 
increases the value of the four neighbors in 
the temporary array. Since there are 176 
bits across in the temporary array, a cell's 
top neighbor is 1 76 spaces back in the array 
— that's why we left a lot of space between 
the array we initially cleared ($8000) and 
the temporary array start ($8 100); the bot- 
tom neighbor is 176 spaces forward in the 
array; the other two neighbors are - 1 and + 1 
array space. 

Increase the array counter by one, de- 
crease the bit counter by one. and shift 
Register A to the left again. Continue until 
all eight bits are checked. Then repeat the 
process until all 22 bytes are checked. Since 
there are 32 bytes per line and we're only 
using 22, we have to increase the graphics 
byte location in Register X now by 10. 
Repeat the entire process 170 times more 
and we're finished. Activating $FFDE puts 
us back into low RAM and finally we'll set 
the DP Register back to 0. 

The other major subroutine is PSET (lines 
730 through 1140}. This time we load 
Register X with $8 1 B4 — that's $8100 
plus 176 bits plus the next four bits in the 
next byte (X location of 44). High RAM is 



activated and again the DP Register is set to 
$70. Our starting coordinates are 44, 1 2, so 
the vertical and horizontal counters are set 
accordingly. Register A is loaded with the 
first bit of data and the array counter is 
increased by one. If Register A is 0, the 
routine goes to CPSET. If it isn't, first clear 
the ai i ay bit to 0, then shift Register A to the 
left (this is the same as ANDA #\). If the 
result isO, the routine goes to C PS ET, orelse 
it PSETs the coordinates in the horizontal 
and vertical counters. When the horizontal 
counter reaches 212, the first row is PSET. 
This time the array counter must be in- 
creased by seven (We've only gone across 
168 bits plus one array counter increase. 
There are 176 bits between any two points 
on two rows, so we're seven bits short of 
dropping down one row}, We keep repeat- 
ing the process until we 're down to 1 80 and 
all the screen is PSET, Finally, activate low 
RAM and set the DP Register back to 0, 

All this keepsalternatingbetweenPMODE 
4 . 1 and PMQDE 4 , 5 unless you press any key 
to return to BASIC. If you do press a key, 
hold it down since the program only checks 
for this every other lime, When you've 
typed in the program, check for any errors 
with A/ NO/ MS/WE; when it's error-free, save 
it with A NEIGHBOR/BIN. If you want a 
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Qm DISTO SUPER RAM HI 512K UPGRADE $95 (free software included) 



CRC COMPUTERS 



s^s® 



4 IN 1 MULTIBOARD ADAPTER 130$ 

Parallel printer port, real time clock, Serial port, hard disk adapter 



Mini Controller 




The only floppy disk Controllers that 
ELIMINATES the need of a Multi-Pak 



The No-Extra-Cost Controller 

2 DOS Switcher (switch included) 
NO clumsy jumpers to move 
■ Accepts 24 or 28 pin EPROMs 

r5$DOS included (add 10$ for 2nd DOS) 



See page 1 23, March 89 Rainbow lor more info 



RS-232 SuperPack 55$ 

■ A stand- a i one (Multi Pak rod.) adapter mat gives 
the user a true RS-232 Serial Port. • Completely 
compatible with OS-9's ACIA sollware, 
- Compatible with software that requires 

the fandy Deluxe RS-232 Pack 
• DB-25 cable included 




Super Controller ] 

Along with the included DOS, 

plug-in three more software selectable DOSes 

or 2764 or 271 28 EPROMs burned to your lining. 

The internal M.E.B, [Mini Expansion Bus) lets you add 
DISTO's incredible Super Add-ons. 

99$/110$(2 DOSesV 



See page 1 22, March 89 Rainbow for more info 



/ 



RADIO SHACK (Ft) which has more experience 
with COCO controllers than any other supplier 
now carry the DISTO SUPER CONTROLLER H 




SUPER ADD-ONS 



Super Controller TT 



MEB Adapter II 35$ 

To plug in your DISTO Super 
Add Ons (Multi-Pak required] 

Super RAM 3 
ZeroK Board 25$ 

Free software included 

35$, 



Under OS-9: 



RGB to Monochrome 
Video/Audio Adapter 

Sec page t23. March Rainbow 89 



NOW AVAILABLE AT YOUR 

LOCAL RADIO SHACK STORE 

Part no: 90-2009 

B ,'ffered Read/Write sector achieved without halting the CPU 
Continual use of keyboard even while reading or writing to disk 
System's clock no longer looses time during Read & Write 
NMI is blocked & transferred to IRQ in software 
for low CPU overhead. ■ Completely Interrupt driven lor last 
& smooth Multi-Tasking operations. 1 one 

■ Drivers wrillen by KEVIN DARLING ■ JU * 



Don't let anyone ten you otherwise, the WD 1773 

does not have any problems with COCO 3s. , 

!! Only bad designs do !! A 




3 in 1 Multi Board Adapter 
Parallel Printer Port, Real Time ClocX 
and a true RS-232 Serial Port. 
External DC adapter required. 
(OS-9 Driver included) 
Real Time Clock & Printer Interface 
OS-9 Driver (20S> 
55$/ Mini EPROM Programmer 
40$ /Hard Disk Adapter 

Works with SASI § SCSI interlace, 
Wo Multi-Pak needed if used with SC1 or SC2. 
Compatible with HG8 DOS and Burke & Burke 
Hyper I/O OS-9 Driver included, 
Hard Disk Adapter with RS-232 



CRC COMPUTERS INC. 



11 Boul. Des Laurentides, Laval, (Quebec), Canada H7G 2S3 
Call far Canadian Prices Include S&H of $4 or $8 if order exceeds $75 



Sorry: No personal cheques 
Master Card and Visa Accepted 



1-514-967-0195 
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program that includes all eight neighbors, 
change the NEIGH subroutine (lines 570 
through 605) to: 



570 


INC 


-177 


li 


575 


INC 


-176 


LI 


580 


IMC 


-175 


U 


585 


INC 


-i.u 




590 


INC 


+1,U 




595 


INC 


+175 


u 


600 


INC 


+ 176 


1.1 


605 


INC 


+ 177 


u 



Assemble and save this version with A 
NEIGHALL/BIN. 

Finally we need a basic program (List- 
ing 4) to put the desired pattern on the 
screen and execute Lhe ML program. The 
first two lines load either ML program if 
necessary (be sure to include REM Line 6 — 
it is used later), and the next two lines clear 
enough space for variables and graphics. 
Lines 40 through 49 draw the pattern (set 
the screen array), and Line 50 executes the 
ML program until you stop it The last line 
ensures that we're back in low RAM. If you 
want to use the high-speed poke (POKE 
65495 , 0}.put it at the start of Line 50, Then 
put the slowdown poke (POKE 6 5494 . 0) at 
the start of Line 55. When you've typed the 
Basic program, save it as NEIGHBAS. 

Table 1 includes other variations that 
may be substituted for Lines 40 through 49 
and the ML program to use with them. The 
possible designs are endless; some begin to 
repeat after a while, and some even vanish. 
You can include an addition to the ML 
program to have it check to see if a specific 
key has been pressed; if so, it can go 10 a 
screen dump routine you've added, print 
out the display, and then continue with the 
program. 

That's all for "The Graphics Corner/' 
We've covered three methods of creating 
computer graphics and suggested ways to 
modify all the programs. Let your imagina- 
tion run wild and push these programs to 
their limits. 



(Questions or comments concerning this 
tutorial max be directed to the author at 
Route 2, Box 2 J6C,Mason,Wi 54856-930. 
Please enclose an SASE when requesting a 
reply.) Q 



Listing 3: neighbor 



szim 




)R : 


57000 


00110 


VER1 


RME 


1 


001 20 


HORZ 


RMB 


1 


00130 


STAPT 


ORCC 


IS50 


0014 


CLEAR 


CLRA 




00150 


^ 


CLRB 





40 FOR X-0 TO 85 STEP 5 

41 LINE(CX-X.CY-X>-<CX+X.CY+X).P 

SET,B:NEXT 

42 LINE (43. 11) -(213 ,181 J, PRESET 

43 LINE(12B.ll) - < 128 . 181). PRESET 

44 I lNF(?n.ll)-(43, 181). PRESET 

45 LINE(43.96>-(213, 95). PRESET 
use NEIGHB0R.BIN 



47 PftESET(CX.CY-l) : PRESETt CX - 1 . C 

Y):PRESET(CX,CY) 

48 PRESET(CX+l.CY)rPRESET(CX.CY+ 
1):PSET(CX-3.CY) 

49 PSET(CX-2.CY):PSET(CX+2.CY):P 
SETCCX+3.CY> 

use NEIGHB0R.BIN 



40 LINE(43.96)-(213,96),PSET 

41 FOR X-43 TO 213 STEP 10 

42 LINEa,91)-(X,110),PSET;NEXT 

43 LINE(128.11)-U28,181).PSET 

44 FOR Y-ll TO 181 STEP 10 

45 LIUE(123.Y}-(133.Y),PSET;NEXT 
use NEIGHBOR. BIN 



40 N-43 

41 LlNE(CX-N.eY-N)-(CX+N,CY+N).P 
SET.RF 

use NEIGHBOR. BTN 



40 CIRCLE{CX-15,CY) f 15,l,.75,.25 

41 CIRCLE(CX.CY-15).15,1,0.,5 

42 CIRCLE<CX+15.CY),15,1..25 T .75 

43 CIRCLE(CX.CY+15),15, .1..5.0 

44 PSET(CX,CY-3):PSET(CX.CY+3):P 
SETCCX.CY-2) 

4 5 PSET(CX,CY+2):PSET(CX-1 . CY - 1 ) 

:PSET(CX+1,CY-1) 

46 PSET(CX-1.CY+1):PSET(CX+1,CY+ 

1) 



40 FOR X=5 TO 85 STEP 5 

41 LINEC128,96-X)-(128+X.96).PSE 
T 

42 LINE-U28,96+X),PSET 

43 LINE-(128-X,96),PSET 

44 LINE-(128,96-X).PSETrNEXT 
use MEIGHALL.BIN 



40 LlNE(CX,CY-2)-<CX+2,CY).PSET 

41 LINE-CCX,CY+2).PSET 

42 LINE-(CX-2,CY),PSET 

43 LINE-(CX,CY-2),PSET 

use NEIGHBOR, BIN or NEIGHALL.BIN 



Table 1: Alternate Lines for Design Variations 



Listing 1: neighbri 

'COPYRIGHT 1989 FALSOFT, INC 

10 PCLEARB 

20 L=10 

30 DIM A1(L,L),A2(L,L) 

40 PMODE 4, 1:PCLS: SCREEN 1,1 

50 Al (L/2, L/2)=1:PSET (L/2, L/2) 

60 PMODE 4,5: PCLS : GOStIB 80 : SCREE 

N 1,1 

70 PMODE 4, l:PCLS:GOSUB 80: SCREE 

N 1,1:GOTO60 

80 FOR Y=l TO L-l 

90 'FOR X=l TO L-! 

100 V=A1(X,Y-1)+A1{X-1,Y)+A1(X+1 

,Y)+A1(X,Y+1) 

110 &2 (X, Y)=V AND 1 

120 NEXT X, Y 

130 FOR Y=l TO L-l 

140 FOR X=l TO L-l 

150 V=A2(X,Y) :A2(X,Y)=0;AI(X,Y>= 

V 

160 IF V=l THEN PSETIX.Y) 

170 NEXT X,Y: RETURN 



Listing 2: neighrrz 

'COPYRIGHT 198 9 FALSOFT, INC 

10 PCLEARS 

20 L=20 

30 DIM Al (L,L> ,A2 [L,D 

40 PMODE H, 1 ; PCLS: SCREEN 1,1 

50 AUL/2,L/2>-l:PSET(L/2,L/2) 

60 PMODE 4,5;PCLS:GOSUB 80: SCREE 

N 1,1 

70 PMODE 4, l:PCLS:GOSUB 80: SCREE 

N 1, 1: GOTO 60 

f!« FOR Y=l TO L-l 

90 FOR X-l TO L-l 

100 V=Al{X,Yi :IF V=0 THEW 120 

110 A2(X,Y-1)=A2(X,Y-1)+1 

111 A2(X-1,Y)=A2{X-1,Y)+1 

112 A2(X+1, Y)=A2(X+1,Y)+1 

113 A2(X, Y+1)=A2(X,Y+1}+1 
120 NEXT X,Y 

130 FOR Y=l TO L-l 

110 FOR X=l TO L-l 

150 V=A2(X,Y, AND 1 : A2 (X, Y) =0: Al 

(X,Y>=V 

160 IF V-l THEN PSET(X,Y) 

170 NEXT X,Y; RETURN 



CLEAR THE INTERRUPTS 



00160 
00170 

00180 LCLEAK 

00190 

00200 

00^l0 



LDX 

CLR 

STD 

CKPX 

BLS 

BSR 



#$6000 

5FFDF 

,X++ 

#$F800 

LCLEAR 

FPOINT 



BEGINNING 
HIGH HAM 



OF TEMPORARY ARRAK 



EHD OF TEMPORARY ARRAY 
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00220 PAGE 5 
03230 
03240 
20250 

00270 

00290 PAGEl 
00 3 MS 
E0310 
00322 

003 30 

00350 

00360 DONE 

00370 

003S0 

20390 

00400 

004 1J3 

004 20 PPOINT 
0-3430 
00440 
00450 

B0470 

00480 

004 90 

03500 

S50510 L3 

00520 

00530 VI 

00540 

00550 LI 

00560 

00570 NEIGH 

00580 

00590 

00600 

00610 C£*PT 

00620 

00630 

00646 

00650 

00660 

006"'0 

00630 

006 9B 
00700 
00710 
00720 

00730 PSET 
00740 
00750 
00760 

007 70 
007 80 

007 90 

smm 

00810 LOOP 4 
00820 

00830 LOOPS 
00$ 40 
00850 
00 B 60 

008 70 
00880 
00890 
00900 
00510 
00920 
00930 
003,40 
00^ii! 
00960 
00970 
00980 
00990 
01000 
01010 

01020 CPSET 
01030 
01040 
01050 
01060 
31070 

01080 

01090 

01100 

01110 



LDB 

JSR 

JSR 

BER 

LDB 

JSR 

BSR 

LDB 

JSR 

JSP 

BSR 

LDB 

JSR 

BSR 

JSR 

BEQ 

CLRE 

JSR 

ANDCC 

RTS 

LDU 

LDX 

I.EAX 

SETDP 

LDA 

TFR 

CLR 

IDA 

STA 

LDB 

STB 

LDA 

LDO 

LSLA 

BCC 

INC 

IMC 

IHC 

INC 

LEAU 

D£CB 

BME 

DEC 

BNE 

LEAX 

UKC 

BNE 

CLR 

CLRA 

TFR 

RTS 

LDX 

LDU 

SETDP 

LDA 

TFR 

CLR 

LDB 

STB 

LDA 

STA 

LDA 

BEQ 

CLR 

LSRA 

BCC 

LDD 

LSRA 

RORB 

LSFA 

RORB 

LSRA 

RORB 

ADDA 

TFR 

LDA 

ANDA 

LDA 

QRA 

STA 

INC 

LDA 

CMPA 

BLS 

LEAX 

INC 

LDB 

CMPB 

BLS 

CLR 



#5 
§9653 

59542 

PSET 

#1 

$95AA 

PPOINT 

#1 

39653 

59542 

PSET 

#1 

S95AA 

PPOINT 

[$A000t ANY KEY PRESSED? 

PAGES IF MOT BACK TO PAGES 



01120 



CLR A 



$95AA 

t$AF 

»$H130 

?BA 

357 , X 

570 

#$70 

A, DP 

SFFDJ 

#171 

VERT 

#22 

HORE 

,X+ 

*e 

CPPT 
-176, U 
-1,0 

+ 1,U 
+176, U 
1,0 

LI 

HORZ 
L2 

10, X 
VERT 
L3 
3FFDE 

A, DP 

#$3IB4 

♦TABLE 

573 

#$70 

A, DP 

SFFDF 

#12 

VERT 

#44 

HORZ 

,x* 

CPSET 
-1,X 

CPSET 
VERT 



D,Y 
HORZ 
»7 
A, I. 1 
,Y 

,x 

HORZ 

HCR2 

#212 

LOOP i 

7,X 

VERT 

VERT 

#180 

LOOP4 

SFFDE 



RESET THE INTERRUPTS 
RSCK TO RASTC 
BEGINNING OF DATA 
START OF GRAPHICS 
FIRST GRAPHICS BYTE USED 



HIGH RAM 
BITS DOWN 



BYTES AOROS 



BITS/BYTE 
CHECK FIRST BIT 

TOP NEIGHBOR 
LEFT NEIGHBOR 
RIGHT NEIGHBOR 
BOTTOM NEIGHBOR 
NEXT ARRAY LOCATION 
BYTE CHECKED YET? 

HORIZONTAL DONE YET? 

ADJUST GRAPHICS BYTE 
VERTICAL DONE YET? 



ACTUAL START OF DATA USED 
MUST USE OUR OWN OR TABLE 



HIGH RAM 

STARTING POINT DOWN 



STARTING POINT ACROSS 



BRANCH IF ZERO 

CLEAR THE BIT 

ANDA #1 

BRANCH IF ZERO 

REG A=VERT:REG B=HORIZ 



MAXIMUM ACROSS 



ADJUST BIT DATA POINTER 



MAXIMUM DOWS 



01130 TFR A,DF 

01140 RTS 

01150 TABLE FDB 58040 

01160 FDB 52010 

01170 FDB 50804 

01180 FDR $0201 

01190 END START 



Listing 4: neighbas 

'COPYRIGHT 1989 FALSOFT, INC 

5 IF P£EK(&H7066)O&H50 THEN LOA 
DM"NEIGHBOE.BIN" 

6 V IF PEEK(£H706S] <>&H4F THEN LO 
AD.M"NE I GHALL.BIN" 

10 CLEAR200, SH7000-1 

20 PCLEAR8 :CX=128:CY=96 

30 PMODE4 , 1 : PCLS : SCREEN1 , 1 

40 FOR X=l TO 25 STEP 2;LINE(CX- 

X, 96-X) - (CX+X,CY+X) , PSET,B:NEXT 

42 LINE(103,71)-<153,121} r PSET 

43 LIME(153,71)-(103, 121), PSET 
4 4 FOR X=104 TO 152 STEP 4 

4 5 FOR Y-72 TO 120 STEP 4 
4 6 PSET(X,V) :NEXT Y,X 
4 7 FOB X=106 TU L5M STEP 4 
46 FOR Y=74 TO 118 STEP 4 

49 PSET(X,:0 :KEXT Y,X 

50 EXECSH7002 
55 POKESHFFDE,0 



/P\ 




Mot«ui • pimvHtmn s . s ur nui s ■ sennet 



Fast Delivery... 
Friendly Service 

Now in our 7th year! 



Avdtex *JHadwt4 




* NEW LOW PRICES * 

Avatex 1 2QQe $ 79 Avatex 2400 



with Coco Cable 



Hei//ewerf in 
April, 198B 
Rainbow' 



Awatex12Q0e, Cable 
AUTOTERM... $119 




/^ 



$169 

with Coco Cable 179 
(Coco 3 only) 

with RS-232 Cable* 185 



Avatex 2400, Cable 
AUTOTERM ... $209 



'Coco I. 2 requires Deluxe RS-23?Pak 



• Call 

513-396-SOFT 



• Shop by Modern * 

513-396-SHOP 



2235 Losantiville, Cincinnati. OH 45237 

SHIPPING will be charqed .il our ACTUAL COST 
Ohio residents add 5,5% Sales Tax COD add 3.00 
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F e ature 




Getting started with cgfx functions and improving your system 

with a fast compiler utility 



'hat You Should Know About 

our C Compiler 




uma uavm 



l he C compiler release predates 

the Color Computer 3. hard disk 
drives for the CoCo, OS-9 Level 
II. and the Level II Develop- 
ment System with its vdd (RAM 
disk). Neither the compiler nor the manual 
has been updated to achieve the high per- 
formance and compiling speed possihle 
with the new hardware or software. 

While theC compiler was being written, 
the CoCo did not have sufficient disk space 
to keep all the necessary tiles on one disk 
drive. The compiler was coded to look for 
files in the defs and ltb directories on 
Drive /di. and the manual stated that the 
defs and l i a directories were on that dri ve. 
Disk space limitation no longer exists due 
to the recent improvements in hardware 
and software. 

If your system has a 40- or 80-track, 
double-sided floppy drive as /do, your disk 
has space for more files. The compiler can 
be patched to look for its defs and lib 
directories there instead of on /dl, letting 
you keep all your system, commands and 
compiler files on one disk. If your system 
has a hard disk drive, you may not only 



Numa David, an architect and planning 
consultant, uses a CoCo 3 to process 
demographic and other data into graphic 
output for feasibility studies for contem- 
plated real-estate development projects. 
lie iseurrently writing afull-featuredCAD 
(Computer-Aided Design} application in 
the C language for the CoCo 3. 



keep all your files there but all file access 
including the compiler fdes. 

Better yet, if your system includes the 
Level II Development System with the vdd 
device driver (RAM disk), there are patches 
and procedures that give you the high per- 
formance and speed of RAM-based com- 
piling instead of disk-based compiling. 

The instructions that cause the compiler 
to look on Drive /di for the defs and LIB 
directories are coded in the compiler files 
cci and c .prep. These files can be patched 
to cause the compiler to look for the 
and lib directories on any drive you choose, 
including / r o (vdd RAM disk) available 
with the Level II Development System. 

The remainder of this article guides you 
through steps necessary to optimize the 
compilerto your system. Some initial notes 
to remember are: 

• Perform the following on backup copies 
of your system and compiler disks. The 
system and compiler disks are modified, 
and it is possible for patch utilities to de- 
stroy important data on your disks. 

• Drive /ho is used in some of the 
following examples. Substitute /do if your 
system does not include a hard disk drive. 

• The EZGen utility used is available 
from Burke &. Burke, as advertised in THE 
rainbow. It is possible to use OS-9 com- 
mands (modpatch with os9gen or cobbler) 
if you prefer: but. after considering the low 
price, the readers this will interest, and the 
inevitable complications that will be 
avoided, I concluded that EZGen is the 
practical choice for these examples. The 
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objective here is to show you the simplest 
approach to a practical problem. 

Compiler Patches 

If you have a hard disk drive you can 
patch a custom version of your compiler 
that searches Drive /ha for the defs and lib 
directories as follows: 

OS 9: chd /hO/cmds 

OS9: ezgen c.prep 

1 c.prep 

c 135c 68 

c 135d 30 

v 

q 

0S9; esgen ecl 

1 ecl 

C 0EE5 68 

C 0EE6 30 



If you have a 40- or 80-track r double- 
sided disk drive as /dO, you can patch a 
custom version of your compiler that 
searches Drive /do for the defs and lib 
directories as follows: 

OSS: ezgen c.prep 
1 c.prep 



c 135d 30 
v 

q 

0S9: ezgen ecl 
1 ecl 

c 0EE6 30 
v 

q 

If you have the OS-9 Level II Develop- 
ment System, your compiler can be opti- 
mized to run at maximum speed using the 
vdd (RAM disk) as follows: 

Boot patches: 

To add the r0_i92k .dd device descrip- 
tor to your boot fde: 

OS 9: ezgen os9boot 

b 

i /dl /modules/ r0_l 92k. dd 

q 

To set Default Drive /dd to /hO (omit 
this if you don't have a hard disk drive): 

QS9: ezgen os9boot 

1 dd 

u /dl /modules /hO 

q 



You'll want to use the cgfx func- 
tions from your Level II Development Sys- 
tem. They are C graphics functions similar 
to the gfx and gfx2 functions in basicos. 
The manuals furnished by Tandy fail to 
give the necessary instructions required to 
compile programs with cgfx functions. 

To compile cyix functions c-iiuk must 
be renamed c.iink, and ms must be 
renamed c . asm as follows: 

OS 9: chd cmds 

OS 9: del c.asm 
OS9: del c.iink 

Now let's rename the headers for the mod- 
ules directory. 

OS 9: ezgen ntia 
1 rma 

r c.asm 

q 

059: rename rma c.asm 
OS9: ezgen rlink 
1 rlink 
r c.iink 

q 

OS9: rename rlink clink 

The above patches, using EZGen, act 
directly on the disk files; you do not use 



FOR TOUR 
COCO l,2,~3 ' 
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EZ WRITER fcoco 2,3j 



Our *l best-sellerF Makes letter 
writing simple. Fast, ft EASY . Automatically sets' everything for 
yuu. Dues multiple copies from muilicig lisLy uji(J even labels. Wurfcii 
an till prinLers! Completely idiot-proof! Disk Still only si"?'-' 



■■i 



(Gt&LEONARDO'S PAINTBOX , E «t. 33 ^ I 

joystick to write GREAT graphics programs! Create complex 16 color 
graphics: then SAUE m BASIC rnutinei which use HDRAW, HPAINT. 
HSET commands' RUN elone or MERCI. See review in March '09 
RAINBOW. Seir-centeririg jorstieK req. Specl Intro pneej Disk,t26,qj 



o 1-2,3) * budiet graphics 



SUPER GRAPHICS-W ^ 

program with lots or reeturss' Draw, paint, muki: htixe*:, lines, 
get-put. undo, magnify, snnnK-stretch, write lent. Meeds only 1GK 
ECB! DMP-10V 106 Review in June SB RAINBOW. A bargain, DisK (16 



MATH GAMES 



[CoCo 1,2,3) FOUR great educational 
programs on I diSK! for grades 2 - 6, Covers addition, subtraction, 
multiplication, and division Deferent levels. Exciting animated 
graphics and sounds. RAINBOW review Sept 'M. disk Only JH.M 



(CoCo 2,3JIhis spats snip 



KEYBOARD COMMANDER 

typing game is a run way to learn trie Keyboard. Teaches all the 
pnsitm ns of the fingers and the reaches, Reviewed Nov DB 
HAIMB0V and also Jan ~B9 lata Llapboerd Magazine. Disk On] y 124.93 



I kUUI DEAKj [CoCo 2,1] Delightful educational program 
uiith 2 cuts, dancing bears For grades 1-3. Child Uses only joystick, 
mouse, or keys to point to bear mho holds the correct answer. 
TeocherrpBrenl inputs quiises. RAIHB0V raviaw Sept'SB, Disk.,. (19.93 



ffVgty C.A.R. "Computerised Auto Record- (CoCo 1,2.3) Eeepi » 
complete record of all your car maintenance. For any number or 
vehicles, Reminds you whin to service. Print-out can be Valuable 
fnr Inn purposes, insurance claims, selling or trading- Disk.. J9.95 



TEKIEM D'L : Y~SOE T^/^t K. E 



118 Corlies Ave., Rough keepsie NY 12601 telephone: (914) 485-S150 
PLEASE ADD $1,50 S/H FOR ORDERS UNDER $50 . 
---- - NEW YORK RESIDENTS INCLUDE SALES TAX 



IknHHH 



Next Day Shipping Guaranteed! 




T&D SUBSCRIPTION SOFTWARE 
WE DARE YOU TO TRY US! 

A Subscription To T&D Gives You 10 

Great Programs On Disk Or Tape Each Month! 

Now Featuring Tom Mix Software. 

Attack Now! Before Prices Go Up. 




T&D SOFTWARE 2490 MILES ST ANDISH DR. HOLLAND, M. 49424 (616) 399-964B 
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os9gen or cobbler. You simply reboot 
your system. 

Note: Except for initial access to disk 
drives to move files to /rO for compiling, 
the above compiles and links entirely in 
RAM — the disk drives do not nm. 

Merging the Library Files 

The following merged cgf x library files 
are also merged with your programs when 
they are linked by the fast clink proce- 
dure shown later. 

039: merge cgfx.l clib.I sya.l 

>merged. 1 

Include merged, l in the lib directory. To 
ensure compatibility, be sure to use only 
the new linker supplied with the Develop- 
meat System. 

Preparing the Initializer 

Use the editor to prepare ccl_init, a 
procedure file to initialize the fast com- 
piler, as follows: 

* ccl init * 

iniz rO 

chd /rO 

makdir LIB 

chd LIB 

copy /hO/lib/mercjed. I merged. 1 

chd /hO/defs 

dsave /hO /rO ! shell 

chK /hO/crad5 

load ccl 

load c.prep 

load c.passl 

load c.pass2 

load c.asm 

load clink 

Setting Up the Fast Linker 

Use the editor to prepare fastlink, a 
procedure file you can use to put specific 
programs in for linking. Using a procedure 
file avoids typing a long list of commands 
each time you recompile and relink your 
application. 

The quantity of relocatable files merged 
below serves as only an example. The exact 
quantity depends upon the number of pro- 
grams linked to form your application. 
Here is a typical procedure file: 

* fast_link * 
chd /hO/sources 

merge progl.r prog2.r prog3.r >templ 
merge prog4,r prog5.r prog6,r >temp2 
merge prog7.r prog8.r prog9.r vtemp3 
merge tempi temp2 tempi >/rfl/X±b/ 
proq.l 

* The following compiler line links 
the * 

* CGFX functions in merged. 1 to 
your program * 



clink cstart.r -l=prog,l - 
l=merged.l -o=prog 

This completes preparation of the sys- 
tem for fast compiling. Reset your com- 
puter and reboot. 

To Use Your Fast Compiler: 

Compile each of the source programs of 
your group of source programs to a relocat- 
able object file as follows: 

• Initialize the fast compiler by typing at 
the 0S9 prompt: 

0S9: ccl_init 

• Copy the program to /rO; 

OS9: ."hd /rO 

0S9: copy /hO/sources/prog.c prog.c 

• Compile the program. 

059: ccl prog.c -ro 

Note: Debug and recompile if errors occur 
during compiling. 

• Copy the program back to /ho: 

OSS: copy prog.r /hO/sourees/prog, r 
033; del prog.r 
OS 9: del prog.c 

You now have a group of relocatable 
object files that must be linked to form an 
executable object file as follows: 

To Use Your Fast Linker: 

To link the group of relocatable files to 
an executable object file, simply type at the 
OS9 prompt: 

OS 9: fastlink 

If fast_iink produces errors, debug the 
offending source program, delete the of- 
fending relocatable file, and repeat the 
compiler steps above. The executable pro- 
gram is saved in the cmds directory. To run 
the program type at the 0S9 prompt: 



039; prog 



Summary 

The keys to this fast compiler are the 
patches that cause the compiler to look for 
defs and lib directories on /ro instead of 
/dl and keeping the compiler commands 
loaded in memory for immediate execution 
instead of loading from disk drives. 

Beyond that, many approaches and 
variations are possible for setting up the 
system for fast compiling. Enhancements 
and improving convenience and utility will 
undoubtedly occur to you. You can de- 
velop a completely interactive, menu-driven, 
fast compiler utility. 



C Graphics Library 

Now for the C graphics library. Your C 
compiler has available a new graphics li- 
brary that expands the original C library to 
a state-of-the-art graphics programming 
language. C language graphics library 
functions similar to the gfx2 functions in 
BASIC09 are provided on the OS-9 Level II 
Development System disk as cgfx func- 
tions for the C compiler. You will want to 
use your cgfx commands. 

However, essential steps required be- 
fore using cgfx with the compiler are not 
included in the manual — the kind of steps 
that probably never occur to even experi- 
enced programmers. The following gives 
you the information needed to get started 
with cgfx functions. 

Use of cgfx functions requires a Color 
Computer 3 with the following software: 
OS-9 Level II Operating System. OS-9 
Level 11 Development System, C compiler 
and C library, and Mtttti-Vue. (You can use 
cgfx functions without Muhi-Vue, but your 
cgf is documentation is in the Muhi-Vue 
manual.) 

If you haven't compiled a program using 
cgfx functions yet, the following will spare 
you some time, frustration and confusion: 

Pages 10-1 and 10-2 of the Muhi-Vue 
manual advise you to link the cgf x library 
along with other libraries to your C pro- 
gram, and give instructions along with a 
command line example (that does not work 
yet) as follows: 

039; ccl prog.c -x 
OS9; clink /dl/lib/cstart.r prog.r 
-l-/dl/lib/cgfx.l -l-/dl/lib/ c lib. 1 
-l=/dl/lib/sys . 1 -o=prog 

How frustrated a programmer can get if 
no one tells him that the eel and clink 
modules used above are not the ones that 
came with the compiler and do not work 
until they are changed. You can't be ex- 
pected to know this because it's not in the 
manual. Tandy knows about this specific 
problem — and one of its capable technical 
representatives will explain it if you call 
Tandy's Fort Worth headquarters. Rut how 
long does a programmer troubleshoot a 
command line example before he resorts to 
that? (Have a heart, Tandy — we need 
addenda for this one.) 

The manual fails to advise that the old 
clink and c.isb must be deleted from the 
cmds directory, and that r.iink must be 
renamed c link and nna must be renamed 
e.aam before using the compiler with the 
above command line as follows. (Warning: 
Perform the following on a backup disk. 
Important compiler modules will be 
changed.) 

It is assumed the rma and r . link com- 
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mantis from the Development System disk. 
as well as c.asm and clink from the C 
compiler disk, are on the cmds directory on 
Drive /do. 

QS3: chd /dO/cmds 

OS9: del c.asm clink 

OSS: rename x.linh c.link 

OSS: rename rma c.asm 

Now you are ready to proceed according 
to the instructions and examples on Page 
10-2 of the Multi-Vue manual. However, I 
suggest first merging the library files as 
follows, assuming the library files from the 
Development System disk are in the lib 
directory on /di: 

OS9: chd /dl/lib 

OSS: merge cgfx.l clib.l sys.l 

>merged.l 

Keep merged, l in the lib directory. The 
rather long linker line above can be short- 
ened in all futurecalls as follows, provided 
your source code is on a directory named 
sources on /do and the lib and defs direc- 
tories are on /di: 

OS9: chd /dO/sources 
059: ccl proq.c -r 



OS9: clink /dl/lib/cstatt . r prog.r 
-l=/dl/lib/merged. 1 -Q=PEQg 

Debugging Your Manual 

It may save you more time and confu- 
sion to know the manual contains errors in 
some cgfx command line examples. The 
following, from Page 10-21 of Multi-Vue, 
will help you debug your manual. 

SetGc(path,grpnum,bufnucn) Wi'Ollg 
SetGC (path, grpnum,buf nun) Right 

If you are uncertain about path simply 
use 1 to indicate standard output. 

I don't know how many cgf x command 
line errors are in the manual, but when (not 
if) you run into other cases where every- 
thing seems OK. but you get an Unresolved 
References Error, you can determine 
whether the command from the manual is 
correct by using rdump as follows: 

To dump system command headers to 
your screen using -dump from the Develop- 
ment System: 



OSS: 

OSS; 

or 



chd /ho /lib 

rdump cgfx.l ~a 



To produce a printout so you can com- 
pare all the cgf x commands on the system 
disk with all the egfx commands in the 
manual: 

OSS: rdump cgfx.l -a >/p 

The information in the dump you are 
interested in has the exact spelling of the 
command in question, including upper- 
case, lowercase, underscores, etc., as listed 
under "global symbols defined." If the 
spelling from the dump differs from the 
manual, use the spelling from the dump and 
note the correct command in the manual. 
Otherwise you will find cgfx functions to 
be as simple, straightforward and useful as 
their BASICQ9 counterparts. 

These functions are fundamental to 
graphics programming in the C language, 
CoCo users are fortunate that Tandy chose 
an industry standard, state-of-the-art oper- 
ating system, languages and powerful fea- 
tures such as cgf x for the Color Computer. 
You don't want to do without them. 

(Questions or comments concerning this 
article may he addressed to the author at 
5305 Grand Lake, Bettaire, TX 77401; 
(713) 664-9529. Please enclose an SASE 
when requesting a reply.) /Wi 
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A PRESCHOOL TO GRADE 1 EDUCATION 
PROGRAM THAT WILL PRESENT YOUR 
CHILD WITH HOURS OF LEARNING FUN. 

TMs prolan gives practice in associating the initial sounds of wcrfc 
iritli 111? letters that nake those sounds. Each of the few categories 
presents ten pictures, eacli depicting a different wd, tee are oyer 40 
tosh resolution 16 color pictures uitii 4 sfords to chocse froti for each 
picttire, The first letter of each uord is lii^Mited a/id choices are nade by 
typing letters in. 

Hoi^s on COCO 3 only. 



Disk only * 

515 US, / 518 CNL 
plus J2.M W 
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After NOV 30 
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Plus 52,00 S/H 
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THE RGB HARD DISK 



A warranty can replace your Hard Disk Drive, 
but not the valuable data it contains! Think 
about this BEFORE you buy a used or rebuilt 
hard drive. 

RGB Computer Systems uses only BRAND 
NEW Hard Disk Drives. Controllers and Com- 
ponents, all with the Full Manufacturers 
Warranty. 

Due to the unique design of our components 
and software, RGB also has the fastest and 
most reliable data transfer in the industry! 

The RGB Hard Disk System fully supports both 
BASIC and OS-9, and provides the ability to 
boot up OS-9 completely from the Hard Disk 
without the need for special EPROMS or the 
loss of Disk Basic. 

if you need a Fast, Reliable Hard Disk System 
and don't mind spending a few dollars more for 
Quality, please give us a call today! 
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SYSTEMS 
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294 STILLWELL AVE 
KENMORE, NY 14217 



(716) 876-7538 
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[t took a little longer than I thought, but 
here is Part 2. Before we get into it, be sure 
to review Part 1, which gives instructions 
for building a 256K RAM disk for the 
CoCo 1,2 or 3, 

You need a Multi-Pak Interface for this 
project. When you are finished building the 
RAM disk, I will supply you in Part 3 with 
a driver for Disk basic in the form of 
source code. I will also supply an OS-9 
driver on Delphi and on rainbow on disk. 

Look at Figure 1, It is the complete 
circuit for the RAM disk. (The parts list is 
described in detail in the previous article.) 
By now you should have completed Part 1 
of this project. This means having all the 
sockets mounted on the proto-board and 
the sockets wired for+5-volts and ground. 
You should also have all of the . 1 uF capaci- 
tors in place and wired. Check over the 
wiring again. It is also wise to plug the 
empty card into the Multi-Pak and test the 
+5-volts and ground connections with a 
logic probe or meter. This way you know 
that all the chips will be powered properly. 

Study Figure 1 carefully. None of the 
parts show +5-volts or ground, making the 
diagram easier to read. Notice there is only 
one RAM chip shown in the diagram, to 
save space. All of the RAM chips are 
connected in parallel (together). 

For example. Pin 15 of die RAM chip 
comes from Pin 3 of U 1 7 A. Pin 3 of U 1 7A 
also goes to Pin 15 of all other RAM chips 
as well. All pins to the RAM chips are 
connected together except for DI (Pin 2) 
and DO (Pin 14). Do you see the label DO 
next to the RAM chip? It goes to any other 
wire with the same label. As an example, 
follow the heavy bus trace on the diagram. 
Not shown in the diagram arc the other 
seven RAM chips with different labels. U 1 
has the label DO on pins 2 and 14; U2 has 
the label D I on these pins; U3 has D2. and 
so forth. There is one for each of the eight 
data lines. 

Look again at the heavy traces. They are 
known as bus lines and are used when many 
lines go to the same area or chip. Usually 
address and data lines are wired using bus 
lines. Whenever you see a bus line, all 
wires entering and leaving the bus must be 
labeled. It is the label, not the bus T that 
determines where the wire goes. In fact the 
bus is just a visual guide to where the wires 
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go. You can remove the bus lines and just 
follow the labels. 

Now that you know how to properly 
interpret the diagram, let's start on bow the 
circuit works. You should be familiar with 
U1 to U8. (See my previous article on 
RAM chips for a complete description on 
how they work.) The rest of the chips are 
standard TTL parts, and descriptions of 
each are found in the many TTL books on 
the market today. I suggest getting one in 
order to fully understand the following 
descriptions. 

Look at U9, II 10 and 1114. These are 
latches that hold the 18 address locations 
needed to access 256K of RAM. Note that 
U 14 is not a tri-state latch; so U15, a tri- 
state buffer, is needed. The input side of 
these hitches comes from U13, which is 
being used as a memory decoder. It uses 
SCS signal from the CoCo, thereby map- 
ping these bytes from SFF40 to $FF43 (A0, 
Al and A2). Since we are not using A4, 
there is a mirror image of this area at 
$FF48. U 1 3 also uses the R/W line and the 
E clock to make sure that data is valid when 
writing to the latches. This leaves the de- 
coder chip with four write-only output 
signals and four read-only signals. We need 
all four write-only outputs but only one 
read-only output. 

A write to $FF40 activates Y0 of U 15. 
This latches the information on the data bus 
to U9. A write to $FF41 activates Yl of 
U15, and this latches data to U10. Again a 
write to $FF42 activates Y2 of U 15. This 
latches data into U14. Note that even though 



six bils of data (DO to D5) are written to 
UI4, only the first two are used. The other 
four are not connected and may be used for 
further expansion. The outputs of U9. U 1 
and U14 are controlled by the RAS and 
CAS parts of the circuit. 

Ul 1 and U 10 makeup part of the refresh 
circuit, Ul I is an eight-bit counter. If you 
remember the RAM info, only eight bits 
are required to completely refresh 256K of 
memory. The input of U 1 1 comes from an 
ANDgate, U16B. The main inputto the AND 
gate is from the Q clock. Every Q dock 
cycle the CoCo puts out increments the 
counter. When the counter reaches $FF, it 
resets to and starts over again. Then other 
input to the AND gate comes from the SCS 
line of the CoCo. It is wired in such a way 
that the refresh counter is halted whenever 
an access to the area is done. This is to make 
sure that a count is not missed when the 
RAM is accessed. The output of the eight- 
bit counter is not tri-state — thus the need 
for U 10. U 1 is an eight-bit tri-state buffer. 
The outputs are almost always enabled via 
an inverter U 1 8F. The input to U 1 8Fcomes 
from U 1 6 A, which is only activated when 
you do a read or write to the RAM data at 
$FF43, When a read or a write is done, the 
refresh cycle is stopped via U16A and 
U1RF. 

The string of inverts you see at the top of 
Figure 1 isadclay tine, ltdelays the Eclock 
in orderto allow all other buffers to activate 
and deactivate in the proper sequence. 
Remember that in reading or writing a byte 
of data to a dynamic RAM such as this, 
there must be a proper sequence. (A com- 
plete sequence of events is discussed later.) 
But for this to happen, the refresh circuit 
must be removed from its counter address 
in time and be back on track for the next 
refresh count. This is one example of the 
timings to be reckoned with in designing a 
circuit. 

Now let us look at a complete read cycle 
step-by-step. Before a read cycle can be 
done, you must first set up which 256K 
bytes of data you want to read. This is done 
using 18 bits of address. Let's call them 
RAO to RA17. (RA stands for RAM ad- 
dress.) To set up the 18 RAM addresses, 
you must do three writes to the latches 
described above. RAO to RA7 is mapped at 
SFF40 using DO to D7 respectively. The 
next group, RA8 to RA15. is addressed at 
$FF41, again using DO to D7 respectively. 
Finally the last two, RA16 and RA17, are 
addressed at $FF42, using DO and Dl re- 
spectively. After writing to these three 
address locations, the address of the byte 
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Window Master V2.2 

The hottest new program available for the 
Color Computer III! Now you can have 
Windows, Icons, Buttons, Pull Down Menus, Edit 
Fields and Mouse Functions built into your Basic 
or Machine Language Programs easily and 
quickly, without the need for OS9. 

It supports up to 31 Windows on the display, 
multiple fonts in 54 possible sizes and styles, 
Enhanced Basic Editing and much more. It adds 
over 50 Commands and Functions to Basic to 
fully support the Point & Click Window System, 
In fact it has so many features it would take 
several pages to to describe them all. 

It is completely compatible with existing Basic 
programs and takes absolutely no memory 
away from Basic, It contains a built in Ram Disk 
which is completely transparent to Basic (512k 
version) for enhanced operation. 

It requires 1 Disk Drive, R.S, Hi-Res Interface & 
Joystick or Mouse. Includes both the 128k & 
512k versions for only $69.95 

Window- Ware 

Window Writer - A Point & Click Word 
Processor, features both Mouse & Keyboard 
type editing, proportional printer support, 
powerful formatting capability, works with any 
printer. On screen Italic, bold etc. WYSIWYG 
Requires Window Master & 512k- $59-95 
Window Writer/W - for non Window Master 
users includes all features as described above. 
Requires 512K & Disk $79.95 
Window .B aric Compiler - A Basic Compiler 
similar to CBASIC only it compiles all the 
Window Basic statements to create super fast 
M.L, programs & Desk Accessory programs for 
Window Master $99.00 
Winrtnw KPT/ASM - A full featured 
Editor/Assembler and Debugger for the Window 
Master System S49.95 

Font/Icon Bditonr - A utility di3k with the Font 
& Icon Editors so you can edit or create your 
own, includes Basic & M.L. versions 519.95 
Advanced I'myrammers finlde - A Guide for 
Basic & MX. Programmers on interfacing to 
Window Masters complete system including 
System Calls, Memory Map, Interrupt handling 
&. Extended Memory access. $24.95 
The Memory Game - A Concentration like game, 
lols of fun for everyone, $19. 95 

512K RAM UPGRADE 

Give your COCO 3 all the power it deserves with 
this easy to install (no soldering/plug in) 100% 
Tandy compatible 512K memory upgrade. 
Completely assembled and tested. Includes 
Ramdisk &. Memory Test software described 
below. $159.95, 512K + Window Master SIM 

512K RAMDISK & TESTER 

RAMDISK is an ALL Machine Language 
program that will give you 2 ULTRA High Speed 
Ram Disks in you CoCo-3. Plus it allows your 
CoCo-3 to run at double speed all the time even 
for disk access!! I It will not disappear when you 
press reset like some other ramdisk programs. 
The MEMORY tester is a fast ML program to test 
the 512K ram, II performs several bit tests as 
well as an address test. 

Requires 51ZK & Disk $19.95 



CBASIC Editor/Compiler 

The ULTIMATE Color 
Computer BASIC COMPILER!!! 

If you want lo write fast efficient machine 
language programs and you don't want to spend 
the next few years trying to leant how to write 
them in Assembly language or with a cheap 
compiler, then CBASIC is the answer!!! 

CBASIC is the only fully integrated Basic 
Compiler and Program Editing System available 
for the Color Computer. It will allow you to take 
full advantage of all the capabilities available in 
your CoCo without having to spend years 
trying to leant assembly language 
programming. CBASIC allows you to Create, edit 
and conver' programs from a language you are 
already familiar with Enhanced Disk Color Basic, 
into fast efficient machine language programs 
easily and quickly. 

CBASIC supports all the enhanced hardware 
available in the CoCo 2 & 3, including Hi-Res 
Graphics, & Screen displays. Extended Memory 
and Interrupts. We even added advanced 
commands not available in Basic to give you a 
level of control only available to very advanced 
Machine Language Programmers. Plus we made 
it exceptionally easy lo use, not like some other 
compilers. CBASIC is the friendliest and easiest 
compiler available for the Color Computer. 

CBASIC is a powerful tool for the Beginner as 
well as the Advanced Basic or Machine Language 
programmer. CHAS1C features well over 150 
Compiled Basic Commands and Functions that 
fully support Disk Sequential and Direct access 
files, Tape, Primer and Screen I/O, It supports 
ALL the High and Low Resolution Graphics, 
Sound, Play and String Operations available in 
Enhanced Color Basic, including Graphics H/GET. 
H/Put, H/Play and H/DRAW, all with 99.9% 
syntax compatibility. 

CBASIC mak.es full use of the powerful and 
flexible GIMI chip in the Color Computer 3. It 
will fully utilize the 12HK. ot RAM available and 
install 2 Ultra Fast Ramdisks if 512K is available, 
for program Creation, Editing and Compilation. 
You can easily access all 512K of memory in a 
Compiled program thru several extended 
memory commands dial can access it in 32K or 
8K blocks and single or double bytes. 

CBASIC has its own completely integrated 
Basic Program Editor which allows you lo load, 
edit or create programs for the compiler. It is a 
full featured editor designed specifically for 
writing Basic programs. It has block move and 
copy, program renumbering, automatic Line 
number generation, screen editing, printer 
control and much more. 

Coco 1,2 or 3 Disk $149.00 



To order products by mail, send check or 

money order for the amount of purchase, plus 

$3.00 for shipping & handling to the address 

below. 
To order by VISA. MASTERCARD or COD call us 
at (702) 452-0632 
(Monday thru Saturday, Sam to 5pm PST). 

CER-COMP Ltd. 
5566 Ricochet Avenue 
Las Vegas, Nevada 89116 
702-452-0632 



DataPack III Plus VI. 1 

SUPER SMART TERMINAL PROGRAM 

AUTOPILOTand ALTO-LOG Command Freeman 

X-MODEM DIRECT DISK FILE TRANSFER 

VT-lOtt & VT-S2 TERMINAL EMULATION 

No lost data even at 2400 Baud on the Serial port. 
3 Selectable Display Formats, 32/40/G4/80 columns 
ASCII & BINARY disk file transfer via XMODEM. 
Directly record receive data (Data Logging). 
VT-100 emulation for VAX, [INK and other systems. 
VT 100/52 cursor keys .position,, PF & Alt. Kbd, keys, 
Programmable Word Length, Parity, Stop Bits . 
Complete Pull and Half Duplex operation, 
Send full 128 character set torn Keyboard 
Complete Editor, Insert, Delete, Change or Add. 
9 Variable length, Programmable Macro Key buffers. 
Programmable Printer rates from 110 to 9600 Baud. 
Send Files from the Buffer, Macro Keys Of Disk, 
Display or Print the contents of the 50k Buffer. 
Freeze Display & Review information On line. 
Built in Command Menu (Help) Display. 
Built in 2 Drive RAMDISK for 512K HAM. 
Supports: R. S. Modem-Pat & Deluxe RS-232 Pat 

Coco 1, 2 or 3 Disk - $59.95 

"Tke SOURCE" 

DISASSEMBLER & SOURCE 
CODE GENERATOR 

The SOURCE will allow you to easily St quickly 
Disassemble Color Computer machine language 
programs Directly from Disk and generate 
beauiiful, Assembler Source code. 

• Automatic label generation. 

• Allows specifying FCB, FDB and FCC areas. 
' Disassemble programs Directly from disk. 

• Automatically locates address. 

• Output listings to the Primer, Screen or both. 

• Generates Assembler source directly to disk. 

• Built in Itac/Ascii dump/display. 

• U Selectable Display formats 32/40/64/80 . 

• Selectable Foreground & Background colors. 

• Built in Disk Directory an Kill file commands, 

• Menu display with single key commands. 

• Written in Ultra Fast Machine Language, 

Coco 1, 2 or 3 Disk $49.95 

EDT/ASM III 

DISK EDITOR ASSEMBLER 

EDT/ASM III is a Disk based co-resident Text 
Editor & Assembler. It is designed lo lake 
advantage of the new features available in the 
CoCo-3 with either 12&K or 512K of memory. 
It has 8 display formats from 32/40/64/80 
columns, There is also a free standing ML Debug 
Monitor. 

EDT/ASM III has the most powerful, easy to use 
Toxt Editor available in afty Editor/Assembler 
package for the Color Computer. 

• Local and Global string search and/or replace. 

• Full Screen line editing . 

• Easy to use Single key editing commands. 

■ Load & Save standard ASCII formatted files. 
» Block Move & Copy, Insert, Delete, Overtype. 

• Create and Edit files larger than memory. 
The Assembler features include; 

• Supports Conditional IF/THEN/ELSE assembly. 

• Supports Disk Library file up lo 9 levels deep. 

• Supports standard Motorola directives. 

■ Allows multiple values in FCB & FDB directives 

• Allows assembly from the Buffer, Disk or both. 

Coco 1, 2 or 3 Disk $59.95 
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we want to read is set up. 

To read the byte at the above address, 
read the address $FF43. When we read 
$FF43, we start the cycle by SCS going 
low. The memory-mapped byte is at $FF43. 
The R/W line puts all the RAM chips in the 
Read mode. Then the SCS locks out the Q 
clock from counting the next refresh ad 
dress to U 1 1 . U 1 6A goes low and immedi- 
ately locks out the refresh address via U 18A 
and U10. That also puis the RAS address 
data on the Q bus line. Look at the delay line 
starting from U 18A. The first encounter is 
the junction between U12D and U12E. 
This disengages the RAS address data from 
the Q bus. The next event (U 1 8E and U 15 A) 
strobes the RAS address into the RAM 
chips. Noie that the circuit appears to re- 
move the address before the RAM chips get 
it. But because of the delays caused by 
U 1 7B and the latches themselves, the RAS 
strobe happens before the RAS address dis- 
appears. 

The next step (U 15A and U17D) acti- 
vates U17C and in turn activates U10 and 
U 1 5A. This puts the CAS address on the Q 
bus. The following event at the end of the 
delay line is U16C. It activates U 1 7 A and 
strobes the CAS line of the RAM. At this 
point the RAM chips have all the data 
needed to produce the data. One hundred 



and fifty nanoseconds later, the data ap 
pears on the data bus via Pin 14 on each 
RAM chip. Finally the CPU latches the 
data on the falling edge of the E clock. U 1 3 
deactivates due to the E clock and then eve- 
rything else down the line deactivates. The 
next cycle starts all over again. If the CPU 
does not read or write to that memory 
location, a refresh cycle is made. This process 
is repeated continuously, 

That's a lot of theory, but just remem- 
ber: The itbove circuit tonk almost 100 
hours of work to design. Now you're ready 
to begin wiring. The best way to do this is 
to follow a few guidelines. I start from Ul 
Pin 1 and make all the connections to it. 
Then I goto Pin 2 and do the same, then Pin 
3, and so on until the end of the chip. Next 
I do U2 and U3 in tiie same manner, check- 
ing them several times. 

Wire it up to the location designated by 
the circuit in Figure 1 and plug in the chips. 
Another tip is to label all the sockets with a 
felt pen on the bottom side of the proto- 
board. It's also good to circle Pin I of each 
socket — it gives you a point to start 
counting on. Try to keep all wires as short 
and the solder points as neat as possible. 
When you are finished with the connec- 
tions, clean the bottom of the board with 
circuit-board flux cleaner. 



Next time I'll have trouble-shooting and 
testing guides and some source code for the 
RAM disk. ^ 



Nearly 200 
Color Computer 
Software Titles! 

Call today to get yoirr new 1990 
Express Order Software Buyer's 
Guide. Choose from popular games, 
educational packages, productivity 
software and more. It's the fast and 
easy way to get the software you 
really want. 




A DIVISION OF T4«Dlf COFfiOflATION 



1^800-321-3133 



SIC 



mvkt & JSurfe* 

P.O. Box 58342 
Renton, WA 98058 




TOLL FREE U.S. ORDER HOTLINE: 
f-30(J.4aS-JHOy uaOO-237-2409 

TECHNICAL SUPPORT S, 
INTERNATIONAL ORDERS: 
206-Z3S-Q917 



WASHINGTON RESIDENTS PLEASE ADD 
8.1% SALES TAX. Minimum U.S. .hipping 
S3.0O; £4.00 to Canada, 12.75 U.S. COO 
charga. Plain mow z wh» for dailvary. 

U.S. avarnlyht Of 2-day dallvavy available 

lor In-aiack llama. Solrwar* upgradaa. JS.GO 
aacn (traa with oi'iui ovar $25), 



a 



uarterMeg 



25SK memory upgrade 
far CoCo 3: $89.95! 




mfK*t jtVttsL Out » 4iMHU*fMtf m*w*ptf contfMfcwii, j 
*rm lUipef Il7 chmMnm wXhaul natiom. 



A New Breed of CoCo 3 Memory Expansion 

Usaa exialina CoCo 3 S4K x 4 memory ehiaal 

Our revolutionary circuit combine* lour 64K x 4 memory 

chips on the QusrtorMog board with the (our idemieat 

memory chip*, in the 128K CoCo 3 to double your OS9 and 

BASlC*meniorvtp 256K. Piggy-Sack upgrades to 512Kf 



ASICrnemon 




Ieto-K Quarter Meg (na ctiips| — S39.85 

Alto available: Standard Quarter Met; [4 

chips), Full QuarterMeg (S chips) A Fat 

QuarterMeg (512K - 16 chips) 

«» MARKET PRICE <« 





Dfd you 
IT* true 
piece* 



File System 
Repack 

Your OS9 disks are suffering from a bad case of 
fragmentation, and ($29.95') we've got the cure. 

know that OS9 gets less efficient (and jual a little slower) every time you use it? 
i As you modify or create tiles. OS9 breaks Ihem up into smaller and smaller 
fattened randomly across your disks. Smaller pieces mean slower disk access. 



Our new File System Repack program examines each tile on your hard or floppy disk. It 
reverses tho elfects ql fragmentation by gathering up and combining pieces ol tiles. In 
addition to the immediate benefit of a faster system, our program also reduces disk 
head movement - in the long term, decreasing wear on your system's mechanical parts 



Real BASIC for OS9! 



R.S.B. V1.3 $39.95 



Burke & Burke's R.S.B. software gives you a complete, OSS-cornM title 
version of Disk Extended Color BASIC, We've added new software for 
osa-atyle graphics, sound, printer, and disk I/O. The BASIC you know 
and love is now running under Level 2 OSS windows! 

R.S.B. loads and saves tiles using OSS's fits format, so we've also included 
utilities to transfer BASIC programs and data files betwen OSS and BASIC 
diaka. Of course, you can I Use R.S.B. to run machine iangusge programs, 
and some BASIC commands work slightly differently under R.S.B. 

Requires CoCo 3. 256K HAM, Koppy controller with either Tandy Disk 
BASIC or DISTO CoCo 3 CDOS. and Level 2 (359. 



Co Co-XT Hard Dink I nterfaces 

NO MALT • 1 or 2 hard drives - 30% faster than SASI . Uses PC-type hard 
disk drives & controllers • 5 Meg to 120 Meg per drive • Does not use 
interrupts • Multi-PAK recommended - Includes EZGen boot file editor tor 
easy installation . CoCo XT-RTC include* real-time dock 

CoCo XT £69.95 CoCo XT-RTC $99.95 

XT-ROM AUTO-BOOT ROM . . . Automatically boots OS9 Irom your Burke 
4 Burke herd disk at power-up. Use XT-ROM as a convenience, or for 
fail-sale CoCo operation in unattended BBS, home security systems, etc. 

XT-ROM $19.95 



[4' hard disk cable set $17.50") 



HYPER-I/Q $29.95 

Modifies .Disk BASIC to use hard disk a (CoCo XT, DISTO, 
LIT:. RAM disks, & any mix of 35-160 track floppy drives. 
Fully reset protected, 16K EFflGM-abla. 

HYPER-iij S12.95 

RAM disk and printer spooler add-on for HYPPJR-I.'O. 
Requires 51 2K CoCo 3 and HYPER-I/O. 



HYPER-VO Utilities 



521,95 



Kevin Berner's wildcard copy, delete, 
and file search utilities tor HYFEFt-l/O 

HYPER-I/Q Disk Doctor £17.95 
Kevin"* second utility package. Find 
bad disk sectors, edit GAT/FAT, etc. 

Both utility packages for $37.95 



EZGen Version 1.06 519.95 

Powerful OS9 bootfile editor. Change module 
names, add or delete modules, patch bytes, or 
rearrange modules. Work* on other files, too, 

ffi* VEnrrAscvi 519,95 

Level 2 QS9 acrambled-letter word game lor 
1-1 6 players. Play against the computer's 
15,000 word dictiona ry or friends. 25SK j*" 

October IMS THE RAINBOW '89 



BAS I Ca ll y Sp e ak i ng 



Dear Larry: 

I have written a word processing pro- 
gram for my CoCo ami am wondering how 
to put a word-wrap feature into the pro- 
gram to prevent word division . I would like 
a line length to vary up to 250 characters. 
A listing of the program is enclosed with 
this letter. 

Donald F. Graff 
Springboro, Pennsylvania 

Dear Donald; 

Due to space limitations I cannot list the 
whole program in this article. But I can 
write a small routine that enables word 
wrap and show you the important elements 
to consider in designing one. The program 
is listed below. The variables are explained 
in the header of the routine. 

Questions or improvements regarding 
this routine are welcome. Replies may take 
as much as two or three months, consider- 
ing the complexity of the question. 

CLEAR 10000 

1 DIM L$U00) % THE NUMBER OF LI 

BES ALLOWED TO BE TYPED [CAN BE 

INCREASED) 

10 WO=Q V THE NUMBER OF LETTERS I 
N THE CURRENT WORD 

11 LE-0 'THE LENGTH OF THE CURRE 
NT LINE 

12 LN=60'THE MAXIMUM LENGTH OF A 
LINE 

13 A$=" " V A CHARACTER FROM THE K 
E Y BOARD 

14 L$='""THE LINE CURRENTLY BEIN 
G TYPED 

15 NU=1 'THE CURRENT LINE NUMBER 
100 CLE: PRINT 

110 EXEC 44537 :AS=INKEYS 

12 LE=LE+1:LS=L5+A?:PRINT A?,' 

130 IF A9-" " THEN WO-0 ELSE WO- 

WO+1 

1-30 IF LE>LN THEN PRINT STRINGS ( 

WO, 8) :L$ (NU>-LEFT$ (L$, LEN <L$) -WO 

) :LS=RIGHT$(LS,WO) :LE=WO:WO=0:NU 

=NU+1: PRINT L$; 

150 GOTO 110 

Dear Larry: 

I bought a used Radio Shack Color 
Computer 2 with a printer and double disk 
drive. There were no manuals with it. I was 
able to get some manuals for the printer 
and cassette player through Radio Shack. 

My husband and I are trying to use it for 
a start-up computer business, i cant seem 



Larry Boetdt has programmed on the Color 
Computer, for five years. He has experi- 
ence with BASIC, Pascal and FORTRAN IV. 
He runs a software customizing business 
for the CoCo market. 




By Larry Boeldt 



to find enough business software for this 
computer. I know it was originally made as 
a beginner's computer but am hoping I can 
find some business and educational soft- 
ware for it until i can buy a more business- 
oriented computer. 

I am looking for an address label pro- 
gram so that i can alphabetically file names 
by city, state and zip code. It should allow 
for easy updating and should be able to 
work with a word processor for mail merge. 

I hope you know of some company or 
individual that has this type of business 
software. I would also like to find a desktop 
publishing program for the Color Com- 
puter 2. 

Kay Nelson 
Jacksonville, Florida 

Dear Kay: 

Tothian Software. Inc.. sells two pro- 
grams called Ultra-Merge and Ultra-Base. 
Togetherthey should take care of your mail 
merge and mailing list needs. For a CoCo 2 
word processor many people use Telewriter 
64 from Cognitec. I used the CoCo 3 ver- 
sion of Telewriter to type this article, Both 
Cognitec and Tothian advertise in THE RAIN- 
BOW, so look for their ads. 

If you plan to buy a PC-compatible 
computer in the future, I suggest a program 
sold by Radio Shack called Q&A. My per- 
sonal suggestion is to upgrade to a CoCo 3, 
Your present drives are compatible and the 



price is low. A CoCo 3 tills your small- 
business needs quite nicely. 

These suggestions are based on my 
personal use, and the programs may not 
suit your needs. Many other RAINBOW 
advertisers sell similar products, and it 
would be a good idea to check the reviews 
in back issues. If these packages do not 
match your taste, you can have someone 
write custom software for you. It may cost 
more, but you will get exactly what you 
need. 

Dear Larry: 

I recently bought a Color Computer 3 
and the OS 9 operating system. Before my 
purchase I owned a Color Computer 2 and 
used Disk basic. I would like to know if 
there is any way for OS-9 to read the 
directory of a Disk BASIC disk. ! have 
TRSCopy, which I use to convert old text 
files, and would find it helpful be able to see 
which files i have on disk as I go along. 

JeffHebert 
Sheboygan , Wisconsin 

Dear Jeff: 

The listing i : : ;.L : should do exactly what 
you want it to. Simply type in the following 
lines to invoke it from OS 9's shell. Notice 
that it is written in BASIC09. Make sure you 
pack it, using the command pack*, so that 
it is stored in yourexecution directory. This 
causes BASIC09 to pack all procedures in 
memory and send them to the execution 
directory. 

You must have cunb in memory or in the 
execution directory. To get it to work, you 
must trick OS-9 into believing that an OS- 
9 format disk is in the disk drive. 

First put any OS-9 disk in Drive /di, 
Typedir /di. Replace the OS-9 disk with 
your Disk BASIC disk and type radix ('V 
di"). The program asks if you want to 
make another directory listing. You may 
redirect the output to the printer with the 

line rsdirrVdl") »/p. 

I purposely wrote the program to send 
its output to the standard error path. 

J 



PROCEDURE rsdir 


0000 


PARAM filename: STRING [51 


000C 


DIM 


done: BOOLEAN 


0013 


DIM 


s:STRING[l] 


001F 


DIM 


f sector (256) : BYTE 


002B 


DIM 


i : INTEGER 


0032 


DIM 


path: BYTE 


0039 


DIM 


sector : INTEGER 


0040 


ON ERROR GOTO 300 


0046 


f il&najne=f ilename 
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004 E 


PRINT CHRS (12); 


0054 


OPEN #path, filename +"@ 


":READ 


0064 


REPEAT 


0066 


SEEK #path,7SS48. 


007 3 


PRIMT CHR$ (12) 


0078 


PRINT "Put Color Bas 


ic Disk into "; filename 


009A 


PRINT "and press any 


key to continue " 


00BD 


GET #1, s 


00C6 


PRINT CHRS (12) 


00CB 


done=FALSE 


00D1 


FOR sector=l TO 18 


00E1 


GET #path, fsectnr 


00EB 


RUN display (fsecto 


r, done) 


00FA 


IF done THEN 10 


01136 


NEXT sector 


0111 


10 


115 PRINT 


0117 


PRINT "Another disk? 


01? 9 


GET #1,3 


0132 


UNTIL s="n" OR 3="N" 


0146 


CLOSE frpatti 


01 4C 


END 


14E 300 


0152 


PRINT CHRS (7),- CHRS (7) 


01 5B 


i=ERR 


0161 


IF i=56 THEN 



016D 


PRINT 




016F 


PRINT "Usage: RSDIR( 




"; CHRS(34); Vdl" ;CHR$ (34 ) ; 


">" 


0192 


ENDIF 




0194 


IF i=244 THEN 




0J_A0 


PR1WT 




01A2 


PRINT "You must firs 




t put an" 




01BB 


PRINT "OSS format di 




sk in " 




01D2 


PRINT filename; " be 




fore 


trying to use" 




01EF 


PRINT "the Color BAS 




IC disk" 




0207 


ENDIF 




PROCEDURE display 




0000 


PARAM sector (256) :BYTE 




000C 


FARAM done: BOOLEAN 




0013 


DIM i, j : INTEGER 




001 E 


FOR 3=1 TO 256 STEP 32 




0034 


FOR i=j TO 1+10 




004 9 


IF sector (i) =0 THE 




N 20 






005E 


IF sector (i) =255 T 




HEN 






006A 


done- TRUE 




0070 


GOTO 30 




0074 


ENDIF 




007 6 


PRINT #3, CHRS (sect 




or (13 ) ; 





0064 


IF i=j+7 


THEN 


PRIN 


T #3, 


"/"; 






00 9D 


ENDIF 






00 9F 


NEXT i 






00AA 


PRINT #3, 


r 




00B6 


20 






00BA 


NEXT j 






00C5 


30 END 







Questions about specific BASIC pro- 
gramming problems can be addressed 
to BASICally Speaking, THE 
RAINBOW, P. O. Box 385, Prospect, 
KY 40059. 

We reserve the right to publish only 
questions of general interest and to edit 
for brevity and clarity. Due to the targe 
volume of mail we receive, we are unable 
to answer Letters individually. 

Questions can also be sent to Larry 
through the Delphi CoCo SIG. From 
the CoCo SIG> prompt, pick Rainbow 
magazine Services, Then at the RAIN- 
BGW> prompt , type ASK (for Ask the 
Experts) to arrive at the EXPERTS> 
prompt , where you can select the 
"BASICally Speaking" online, which 
has complete instructions. 




ALL 

COMMANDS 
AT YOUR 
FINGERTIPS 



NO MORE 
SEARCHING 
THROUGH 
MANUALS 



KEYBOARD 

TEMPLATES 
FOR YOUR COCO 

Available Now for TW 128 and TW 64 
$4.95 plus $2.00 Shipping & Handling 

(NC Residents Add fi% Sales Tax) 

SPECIFY TW 128 OR TW 64 



P&M PRODUCTS 

1003 SHALIMAR DRIVE 
HIGH POINT, NC 27260 



UTILITIES/SUBROUTINES FOR BASIC 



ij HQTE FAD: Tvtp«-ahead buffer, urord 
iwrap, bootipBGC, tcyreptat and more. 
use atone' or as a basic subroutint. 
Includes a batch printing utility. 



and 



CALC ULATOR- ALgcbroic notation,. X E 
SQR, integer derivatives For 

dFGimnL^ (c*. PI=35B^113> J . <-Func Hon 

memory. Use atone or as a BASIC 

subroutine. 

31 SEA RC H AMD REPLACE- 36 user defined 
templates search BASIC Files. Replace 
strings with one or two teystrotes 
Insert, delete X overmrite models too.! 
Hodify. templates "on the Fly". File 
size limited urtly by d.=_»_ capacil^. 



^1 



DISK 



HEHD: 



Append 



48 



character 



memos to disk filenames 



51 H1KPUT- Visible prompt and keyboard 
input for HSCRI I M graphic ii\fytti- -- 



61 



III iH ERs Countdown 
USt'REEN 'graphic modes. 



71 



OUIKORAUJ- 



PMODE4 



Lines, circles. 



rays., get/put interactively. 

PROGRAMS RfSlIIRE I28K COC03, RSDOS. 
SEND CHECK/H.O. FOR J14.95 * J2 S*H TO: 

GIFJRALTER SOFTWARE 

65 BlUFF AVENUE 

ROUJAV TON, CT 06653 
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Software 



CoCo 3 



Extended ADOS-3 — 

An Elevated Environment 



Tandy's introduction of the Color 
Computer 3 was a giant leap in the evolu- 
tion of the CoCo. This powerful machine 
with advanced graphics and addressing 
capabilities is in my opinion the best com- 
puter available at anywhere near its price, 
And for some applications, it's the best 
computer, period. Many purchasers of the 
CoCo 3 were disappointed, however, to 
find that the CoCo 3's Disk basic is nearly 
identical to the dull DOS of the earlier 
CoCos. What the CoCo 3 needs is a new 
Disk basic that fully uses the abilities of 
this incredible machine and is of the CoCo 
3's caliber. Extended ADOS-3 is the an- 
swer to that need. 

Extended ADOS-3, the latest product in 
the popular ADOS line, 
is an enhancement to 
standard ADOS-3. 
Remarkable new 
features are added, 
and a few stan- 
dard commands 
are greatly im- 
proved — es- 
peci al ly 
those deal- 
ing with 
the disk 
drive. 
Your 




,V,<* 



6*°* CoCo 3 

will now have. 






A *\0' 

V^- ^t^ *" w hen you turn it on, 

TpO^' Lt^" * SLlL 'k Lnm S s ' dii a RAM disk 

n d« A '^ * vc (for 5 1 2K machines), selectable 

_«; ^Lie.S* '* access to the equivalent of 16 standard 



35-track disk drives, wildcard copy and 
kill commands, key repeal, file dating, 
improved backup and dskini commands, 



configurable cold start actions, and more 
— along with al! the functions available in 
standard ADOS-3, 

Extended ADOS-3 comes with one floppy 
disk and a 12-page 8^-by-U-inch manual. 
The documentation is well-written, straight- 
forward and understandable upon first read- 
ing. The author is easy to get in touch with 
and answered all my questions in a helpful 
manner. 

Extended ADOS-3 is designed to be 
"burned into" a 27 128 EPROM (Erasable, 
Programmable Read-Only Memory), which 
replaces the ROM chip presently in your 
disk controller. This is an important differ- 
ence from standard ADOS-3, which can be 
loaded into RAM from disk. Extended 
ADOS-3^ massive code won't fit into the 
same amount of memory that ADOS-3 does. 
This problem is now solved by a novel ap- 
proach. 

Most of you are probably familiar with 
programs for the 64K CoCo 1 or 2 that put 
the computer into "RAM mode" and make 
use of the extra memory. Since the CoCo 3 
already operates in RAM mode. Extended 
ADOS 3 actually switches into ROM mode 
and accesses information stored on the 
EPROM in the disk controller. This is a 
definite switch from standard program 
operation, and it was a pleasant surprise to 
learn of this scheme. 

However, power often conies at a price. 
I mentioned that the program must be burned 
into an EPROM; while EPROM program- 
mers are not unknown to the CoCo commu- 
nity, I suspect most purchasers will need to 
have someone else bum the EPROM for 
them. Finding someone to do it isn't a 
problem (the manual contains the addresses 
of two such people), but it costs an addi- 
tional $15. 

I should also mention that even though 
Extended ADOS-3 is designed to be burned 
into an EPROM, it is possible to use a few 
of its functions without doing so. You will 
basically be running standard ADOS-3. but 
with the ability to use (one at a time) several 
stand-alone utilities that come on the disk. 
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However, 1 strongly encourage anyone who 
wants to get their money's worth from 
Extended ADOS- J to have it burned into an 
EPROM and use the program to its full 
potential as intended. 

An additional price for power is that the 
size of Extended ADOS-3 demands that it 
be burned into a 28-pin 27128 EPROM, 
since no 24-pin EPROM has enough ca- 
pacity to store it. The Tandy FD 502 disk 
controller has a 28-pin ROM socket, but 
earlier Tandy controllers have only 24 pins. 
Those with the smaller sockets need to 
purchase a $10 adapter from SpectroSys- 
tems. 

In either case, both types of controllers 
need some minor hardware modification in 
order to use a 28-pin EPROM, This in 
volves opening the controller (which voids 
your warranty if still in effect) and doing a 
little soldering. So if The thought of a sol- 
dering iron in your hand makes you break 
out into a cold sweat, get a friend who 
knows how to solder to perform this for 
you. Also, owners of the FD 500 drive need 
to either run a wire into the CoCo's car- 
tridge slot or add a new pin to the control- 
ler's card edge coiuieclor, because a pin 
necessary for the EPROM's operation is 
missing from these controllers. This par- 
ticular modification may prove to be a little 
more difficult. Even with all these things 
considered. I had no problem installing the 
adapter in my 24-pin ROM, and I think this 
is a small price to pay for the kind of power 
you get. 

Guaranteed to Fit 

Extended ADOS-3 i s intended to fit your 
computer setup and personal preferences 
like a glove — but some participation on 



your part is required. Upon receiving your 
package, First do as the instructions ask and 
make a backup of the disk to use as a 
working copy. Keep the original disk write 
protected and in a safe place. Then after 
reading the manual, modify the customiz- 
ing program to reflect the way you want 
your new Disk BASIC to be configured. 

The customizing program, which is in 
basic (as were the original ADOS and 



ADOS-3 customization programs), is well 
commented as to what changes and con- 
figuration options are available. It is not 
menu driven; users list and edit lines to 
effect the changes they want. 

You need to place a copy of your 
configured ADOS-3 onto the Extended 
ADOS-3 disk. (If you are running ADOS-3 
from an EPROM, you can use the 
SR.VEROM . bas program to create a file using 



The Man Behind ADOS 



Arthur J, Flexser, owner and opera- 
tor of SpectroSystems, is an associate 
professor of psychology at Florida Inter- 
national University in Miami. His First 
experience with computers was program- 
ming on mainframes. However, when 
he started using his first personal com- 
puter (one of the original gray-case 
CoCos), he found much more enjoy- 
ment working with it than with the larger 
machines, and was soon writing com- 
mercial-quality software for the CoCo. 

SpectroSystems was founded as a 
means of making these programs avail 
able to the public. From the very begin- 
ning emphasis has been placed on pro- 
gram quality and extensive testing as 
opposed to quick product releases. 

"I try to put out the very best product 
I can; I polish it a lot and am not in a big 
hurry to release it at the first possible 
minute," said Flexser. "I take my time 
when I'm developing. I checkout every 
detail very thoroughly, and if there is 
some subtle funniness, I will spend hours 



and houTS , . . tracking it down." This 
attention to error-free program opera- 
tion is found in all of SpectroSystems' 
products. The first release of a Spec- 
troSystems' product is often equivalent 
in testing and debugging to some com- 
panies' third or fourth versions. 

ADOS itself began when Flexser pur 
chased a lowercase kit for his CoCo and 
wanted to make basic able to accept 
commands using lowercase. To this DOS 
modification he began to add many utili- 
ties, and the program soon grew into a 
product that other people began to ex- 
press an interest in. Out of this eventu- 
ally came the original ADOS. From that 
time on, the CoCo Community has been 
fortunate to have this source of excellent 
software continue to produce quality 
products. For those of you who were 
wondering, yes, ADOS does stand for 
"Art's DOS." I think he would be per- 
fectly content, however, if it were every- 
one's DOS, 






THE BEST COCO ASSEMBLY LANGUAGE PROGRAMMING BOOKS IN PRINT 





"Assembly Language Programming for the CoCo" (The Book) and the CoCo 3 (The Addendum), 
Professionally produced (not just skimpy technical specifications). THE CoCo reference books. 



THE BOOK - 289 pages of teaching 
assembly language for the CoCo 1 & 2. 
It's used as a school text and is an 
intro to Computer Science. It describes 
the 6809E instructions, subroutines, 
interrupts, stacks, programming 
philosophy, and many examples. Also 
covered are PIAs, VDG, SAM, kybd, 
jystk, sound, serial port, and using 
cassette and disk. $18.00 ! $1.50 s/h. 



THE ADDENDUM - Picks up 

where the BOOK left off. Describes 
ALL the CoCo 3 enhancements & how 
to use them with assembly language. 
The most complete GIME spec. 
WOW - Super-Res Graphics, 
Virtual Memory, New Interrupts, 
and more information not available 
elaewhere. Find out what the CoCo 3 
can really do. 112.00 + $1.00 s/h. 



COCO 3 SPECIAL 

Start your CaCa 
library right. 
See what the CoCo 
can really do and 
save money - buy 
the BOOK and 
ADDENDUM 
for only $27.00 + 
$2.00 s/h. 



US check or money 
order. Rl orders 
add 6% sales tax 



TEPCO 

68 James Court 
Portsmouth, RT 02871 

See Us On DELPHI 
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your EPROM.) Then run the Extended 
ADOS-3 custom izer, which creates a bi- 
nary file you send to an EPROM burner. 
When you receive the EPROM, place it 
into your disk controller, making the neces- 
sary hardware modifications. When you 
turn the CoCo 3 on, be prepared for a 
moving experience — Extended ADOS 3 
will blow your socks off. 

Extended ADOS-3 is the culmination of 
all that has gone before in the development 
of ADOS. It combines all the old functions 
with powerful new ones, comprising an 
irresistible integrated package. The total 
effect is a DOS worthy of the CoCo 3. 

One excellent example of Extended 
ADOS-3' $ usefulness can be seen by look- 
ing at its editing features, such as a key- 
repeat function. If a key is held down for 
more than half a second, it begins to repeat. 
The delay before repeating begins and the 
speed of the repeat are both configurable. 
In the Edit mode you can step forward in the 
line by holding down the space bar and 
backward by holding down the backspace 
(left arrow) key. The key repeat combined 
with other excellent features gives you an 
incredible editing environment unparalleled 
by anything I've ever seen for the CoCo. 
The manual states that it combines the best 
features of a screen editor and a line editor, 
and I have to agree. 

Two new commands are also added to 
basic, lcopy and lmove allow you to copy 
or move a line or range of lines from one 
location to another within the basic pro- 
gram, with lines automatically being num- 
bered to fit into their new locations. For 
example, lmove 150-200 to 350 moves 
lines 1 50 to 200 to fit between Line 3 50 and 
the line immediately after it. These com- 
mands work very well and are a long- 
awaited addition to BASIC. (1 can't count 
the times I've retyped an entire line just to 
move it to a new location.) 

RAM Disk (When You Need Data Font!) 

For 5 1 2K machines. Extended ADOS-3 
includes a RAM disk that functions either 
as one 80-track or as two 35- or 40-track 
drives. This is a very fast, reliable, resident 
RAM disk that is as easy to use and as 
compatibly transparent as any I have seen. 
A full 40-track RAM drive to RAM drive 
backup takes only three seconds, and a 
RAM drive dskiwi just a fraction of a 
second. The contents of the RAM disk are 
preserved after a reset or even a cold start 
(pokei:l3,0 followed by a reset). 

Except for its lightning-fast speed, the 
RAM disk operates in all other aspects as a 
normal external disk drive, and all disk- 
related commands are compatible with it. 
Furthermore, to maintain data integrity, the 
RAM disk, unlike many others, stores a 



checksum for each sector that gives an I/O 
Error if the data on the disk is found to be 
bad. (You can override this protection by 
using the csum off command, re-enabling 

it with csum on.) 

An Excellent CONFIG 

In the quest for attaining the full poten 
tial of their disk drives, CoCo users have 
been limited severely by standard Disk 
BASIC. Extended ADOS-3 allows you to 
make full use of your drives. It has support 
for double-sided drives, variable step rates 
(6 to 30ms), and 35-, 40- or 80-track drives. 
I am currently using a 30-ms, single-sided 
40-track drive as Drive 0. a 6-ms double- 
sided 40-track drive as Drive I , and a 30- 
ms single-sided 80-track drive as Drive 2. 

The coNFiG command lets you assign 
various physical drives to the logical drive 
numbers to 3. That is, you can assign a 
physical drive (external disk drive or inter- 
nal RAM drive) to a particular logical drive 
number so that, for instance, when you type 
diri you get a directory of whatever physi- 
cal drive you have assigned as logical Drive 
1. CONFIG is used in this format: 

CONFIG B0 R0 Rl 

This means you have assigned physical 
Drive as logical Drive 0. the back (sec- 
ond) side of physical Drive as logical 
Drive 1, the first RAM drive as logical 
Drive 2, and the second RAM drive as 
logical Drive 3, 

Hardware limitations of the CoCo set 
the maximum number of drives that can be 
connected at one time to four single-sided 
or three double-sided drives. This means 
that by using the config command you can 
have access to up to eight different disk 
drives {six sides from three double-sided 
disks and two from the RAM drives). You 
may be wondering how I am going to pull 
the "equivalent of 16 standard 35-track 
disk drives" claim out of the hat. Well, 
consider a system with two 40-track RAM 
drives and three double-sided 80-track 
drives. The RAM drives lota) 80 tracks, and 
the 80-track drives give 3*80*2=480 tracks, 
for a total of 560 tracks — 16 times the 
standard 35 tracks. (See, I wasn't just pull- 
ing your leg.) 

"I Said, I Want My Data Fast!" 

Extended ADOS-3 improves the backup 
and dskin: commands to give speed ad- 
dicts what they long for most, backup is 
modified to work twice as fast as before for 
a full disk. In addition, a "GAT backup" 
feature is used, which means that only 
tracks with data on them are copied (based 
on the Granule Allocation Table), resulting 
in extremely quicker backups of disks that 



are only partially full. You can override this 
feature if you want. 

backup is modified to allow formatting 
of the destination disk at the same time the 
backup is done. You can also use a number- 
of-tracks specifier, such as backup to 
1,35, causing only the first 35 tracks to be 
copied to the destination disk, even if the 
source disk has 40 or 80 tracks. 

dskin 1 is modified to work about 30 
percent faster. However, the timing on this 
fast dskini is critical, and no speed in- 
crease is realized for drives whose motors 
are not operating at the correct speed. 

Get Wild (Then COPY and KILL) 

Many of us are aware that Big Blue's 
Unspeakable- DOS has the ability to per- 
fomr wildcard operations, and we may have 
at one time oranother wished the CoCo had 
the same ability. (Oh. sacrilege.) We can 
come out of the closet now, thanks to 
Extended ADOS-3 's wildcard copy and kill 
commands. 

The asterisk (*) and question mark (?) 
characters in a filename or extension within 
a copy or kill command cause the opera- 
tion to be performed on all files that match 
the description. For example, cqfy"* .BA5" 
to 1 copies all files with an extension of 
.BAS from Drive to Drive 1. 
copy"pr* . bin : i" to 2 copies all files with 
an extension of .bin and starts with the 
letters pr. The question mark can be used to 
match any single character; thus 
kill"r?g.bas:1" kills all BASIC files that 
are three letters in length, start with r and 
end in g. 

These commands can also be followed 
by one or more options to increase their 
power and flexibility. Both copy and kill 
can be followed by an o, which outputs to 
the screen each file copied or killed. Or they 
can be followed by an a. which asks if each 
file is to be affected by the operation. The 
commands copy"*.*" to i,a and 
kill"* ,*", a are especially effective and 
useful commands, providing quick and easy 
disk transfer and purging. Also, the copy 
command has a Kill option that kills all 
source files copied, and a Replace option 
that automatically replaces duplicate files 
without any prompting. 

All these commands work like magic 
and perform flawlessly. So go ahead and 
get wild — you'll be glad you did. 

How About A DATE? 

Extended ADOS-3 now automatically 
attaches the date to files when saved to 
disk; these dates are displayed when you do 
a dir of the disk. The date is also used as a 
header when you llist a program and is 
returned as the value of the dates function, 

as in PRINT DATES, Of AS=DATES. 
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Color Computer I, II, III 
Free Software for Drive Systems 

CoCo Checker ..,Te*l nxm, rams, disk dmres and ft controller printer, keyboard cassette A 
Jape/Disk Utility...Transters disk to tape and tape In disk. 
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Drive 



179 



95 



Drive 



269 



95 



Drive Q & T 



• Full Ht Drive 

•Single Case 

• Heavy Duty Power Supply 

• 2 Drive Cable 

• Gold plated contacts 

• Controller & manuals 



• Double Sided Slim Line Drive 
■ Case holds 2 slim line drives 

• Heavy Duty Power Supply 

• 2 Drive Cable 

• Gold plated contacts 

• Controller & Manuals 



>2 Double Sided Slim Line Drive 
> Case holds 2 slim line drives 
1 Heavy Duty Power Supply 
• 2 Drive Cable 
' Gold plated contacts 
'Controllers Manuals 




Other Drive Specials 



119 
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2nd Drive 

for new Radio Shack 

includes: 

• Slim Line DS/DD Drive 

• Cabling & Instructions 

• Mounting Hardware 



FuJI Ht Drive 89 95 

Full Ht Drive PS/Case 129 95 

Slim Line Drive.... .....99 95 

Slim Line Drive Ps/Case 1 39 

2 Slim Drives Ps/Case 239 95 

Disk Controller ........59 95 



Single Ps & Case ...44 95 

Dual UN Ps & Case 54 9S 

Dual Full Ht. Ps & Case 79 95 

Disk Controller 59 95 



10 Diskettes 

with free library case ■ 
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Quality Add-On's for Tandy 1000, SX, TX, SL, TL, 3000, 4000 

HARD CARDS 



10 meg 2S995 40 meg 399.95 

20 meg 299.95 49 meg 499.95 

30 meg 349.95 64 meg 599.95 

HARD DRIVE KITS 

10 meg kit 249.95 40 meg kit 399.95 

20 meg kit 299.95 60 meg kit 539.95 

30 meg kit 339.95 




1000, 1000A, 

Memory Cards 

Zucker Memory 

• DMA & 512K CALL 

Zucker Multifunction 



• Serial 

• Real Time Clock 

• 512KDMA 

• Software 



CALL 



TANDY 1000 

1000. SX, TX, 3000, 4000 

2nd Floppy 

360K TEAC $1 1 9.95 
720K Mitsubishi $99.95 

3V 2 " Mitsubishi $1 1 9.95 



1000, 1000A, SX. TX. SL, TL 

Hard Drive 
Controller 

Will run 1 or 2 

Hard Drives 

Supports drives up to 120 megabytes 



$99.95 



QUALITY 

CUSTOMER SERVICE 

509-279-9555 

TECHNICAL ASSISTANCE 
bOB-278-6556 




TOLL FREE ORDER LINE 

1-800-635-0300 
TRUE DATA PRODUCTS 

115 MAIN ST.. P.O. BOX 347 

UXBRIDGE. MA 01569 

508-278-6555 

HOURS: MON-FRI 9-6, SAT. 10-4 (EST) 



CORPORATE P.O.'S WELCOMED 

ALL PACKAGES SHIPPED UPS 
EXCEPT CANADA AND A.P.O.s 
COO'S ADD 12.30 
MASTER CHARGE/VISA ADD 3% 
1 YEAH WARRANTY UNLESS 
OTHERWISE NOTED 
PRICES TERMS CC+IDnTONS 
SUBJECT TO CHANGE WITHOUT 
NOTICE 



The date is taken from a 16-character 
string you input either at power-up or at a 
later time using the date command, or it is 
taken from a real-time clock that is sup- 
ported by the available software. 

SpectroSystems currently has software 
drivers that support obtaining the date di- 
rectly from the Disto (CRCJ RTIME, 3 in 
1 and 4-tn-l adapters. It also offers a soft- 
ware driver that is used with the Tandy 
SmartWatch (Cat. No. 25-1033, $39.95), 
which plugs directly into any disk control- 
ler with a 28-pin ROM socket. SpectroSys- 
tems is selling the SmartWatch, including 
drivers for use with Extended ADOS-3, for 
$35. Whether you have a real-time clock or 
input the date at power-up, the file-dating 
feature is a nice function. 

May I Have A Menu, Please? 

The mend command is a more powerful 
version of the popular boot and BOOT3 
utilities found in previous ADOS products. 
It gives a directory of the files on the 
selected drive and allows the use of execu- 
tion commands (run for BASIC programs, 
runm for ML programs), scan, copy, kill 
and load by simply selecting the desired 
file using the arrow keys, 

A word of warning: The menu com 
mand affects the memory where pages I 
and 2 of the low- resolution graphics are 
located. Use of menu changes the graphics 
on those pages. Also, if you are using a 
pcleari (or fclearq), using menu destroys 
any BASIC program already in memory. 
This normally isn't a problem since menu is 
mainly used to load or execute other pro- 
grams, but I thought I would mention it 
here because the manual doesn't include 
this warning. 

A Special Euphoria 

Here's a little feature I really like. Hav- 
ing used an 80-track drive for years, I've 
always been annoyed by its incompatibil- 
ity with standard 35- and 40-track drives. 
The skip on command allows the use of an 
80-track drive with standard disks. 1 stuck 
a 40-track disk into my 80-track drive, 
issued a skip on command, did a dir, and 
Bmgo! — scrolling beautifully on the screen 
were the disk's contents. I know this may 
sound strange, but I think there is a special 
euphoria reserved only for those seeing 
their 80-track drive, for the first time, read 
a 40-track disk. Not only that, but use of 
this command allows you to read, write and 
format standard disks on the 80 track drive. 

More Commands 

With the pout on command. Extended 
ADOS-3 allows output to be sent to a par- 
allel printer port instead of the serial port. 
pout off directs output back through the 



serial port. This feature supports the paral 
lei ports in the Disto (CRC) and older J&M 
controllers. 

The cols command is used while in 
either the 40- or the 80-column screen. It 
prints a line on the screen that shows the 
column numbers in order to aid you in 
knowing what values to use for the locate 
command. 




nCNQt 



mr 




The peep command is like a large-scale 
memory monitor that uses graphics dis- 
plays to allow you to page through and 
view the contents of memory. 

There is also a function that allows you 
to send a dump of the current text screen to 
the printer. You hold down the J, K and L 
keys simultaneously while in direct mode 
or at a BASIC input or lineinput. The cold 
command causes a cold start. 

A few changes have been made in Ex- 
tended ADOS-3. The scan and scanp 
commands, when stopped by the BREAK. 
key, close the files they opened and shut off 
output to the printer. Also, the long-stand- 
ing bug in standard Disk BASIC — and in 
ADOS and ADOS-3 — that caused a crash 
if an I/O Error occurred during a copy 
command is fixed. 

Turnkey Potential 

Another potentially useful feature is 
Extended ADOS-3's configurability to 
perform one of two operations (or neither 
of them) on a cold start. You can have the 
dos command executed or a basic program 
named sys .bas looked for on a specified 
drive and run if found. You can also config- 
ure the system to perform these functions 
depending on whether the space bar is or 
isn't being held down during the cold start. 
For example, you could have the system 
automatically do a dos command if the 
space bar is being held down. This or the 
automatic running of sys. bas allows you 
to set up a "turn-key" system, with the 
necessary programs being loaded and run 
without the user needing to type anything at 
all. 

The other alternative is an excellent 
choice for those who run a BBS. Having 
one of the two actions performed on a cold 
start when the space bar is not being held 
down allows a BBS to restart itself after a 



power failure. This feature would already 
have come in handy the several times my 
board has gone down due to a temporary 
loss of power. 

Utilitarianism 

There are several stand-alone utilities 
provided on the Extended ADOS-3 disk 
that can be used under ordinary ADOS-3 — 
to t ide you over until your EPROM arri ves . 
They are neither as complete nor as error- 
free as their EPROM counterparts, and 
they can be used only one at a time (excepi 
for menu. bin). The utilities include 
wcopy.bin (wildcard copy and kill), 
lcopy . bin (lcop y and lmove), keyrpt . BIN 
(key repeat), date. bin (file dating), 

RAMD1SK.BIN andMENU.BIN, 

But Are We Compatible? 

Since the beginning of ADOS, compati- 
bility has been a major concern of the 
author, Arthur Flexser, Every effort has 
been made to ensure that the presence of 
ADOS in your system won't cause prob- 
lems with programs that work under nor- 
mal Disk basic. The author actually works 
directly with programmers of commercial 
CoCo software to maintain this compati- 
bility. Part of the popularity of ADOS is due 
to the compatibility record, and ADOS is 
probably the closest to being a "standard" 
alternate DOS that you are going to find. 
No other product contains this many fea- 
tures yet is so universally accepted by other 
programs. 

Even with this much effort dedicated to 
compatibility, the extensive modifications 
made will undoubtedly cause some pro- 
grams not to run with ADOS active. The 
disable command solves this problem by 
disabling most of the ADOS functions, and 
a disable: dload command approximates 
standard Disk basic even closer. In addi- 
tion, the documentation for Extended ADOS- 
3 includes pokes to selectively disable and 
re-enable the key repeat and RAM disk 
functions. Most of the programs I tested on 
Extended ADOS-3 worked without any 
problems, and there were none that wouldn't 
function after the disable : dload sequence. 
Because it resides in ROM "underneath" 
Super Extended BASIC no program can 
have a conflicting use for that space. 

This outstanding compatibility is an- 
other reason to make Extended ADOS-3 
your DOS of choice. 

Wrap It Up, I'll Take It 

Extended ADOS-3 is everything it prom- 
ises. All the commands and functions per- 
form exceptionally well and exactly as 
stated in the manual, with the exception of 
the dsktni command, which doesn't seem 
to work any faster on my system (Mr. 
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Flexser said this is probably due to timing 
considerations with my drives). 

As an enhancement to standard ADOS- 
3, this program provides a good number of 
useful utiiities integrated and available 
instantly when you want them. There is no 
hassle of loading in program after program 
and worrying about compatibility. Addi- 
tionally, several of the features can't be 
found elsewhere, and those that can out- 
shine the competition. 

Even with a very critical eye, I find very 
little wrong with this product. It does eve- 
rything it claims, and with style. It seems as 
i f there are fewer errors in Extended ADOS- 
3 than in Disk BASIC — a testimony to the 
care Mr, Flexser takes in producing the 
highest quality product possible. 

It is impossible for me to give Extended 
ADOS-3 anything other than a rave review. 
The CoCo 3 without Extended ADOS-3 is 
like a grounded plane — why not let your 
CoCo soar? 



(SpeclroSvstems, 11111 N, Kendall Drive, 
Suite A 108, Miami, FL 33176, 305-274-3899; 
$39.95; $64.95 for Extended ADOS-3 and 
ADOS-3; $5 for real-time clock drivers; add 
$2 SIR) 



Michael G. Toepke 
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MC-1— 

A Compact Floppy 

Controller 

From DISTO 

The MC-1 (Mini Controller 1 ) is a floppy 
disk controller cartridge that works with or 
without a Multi-Pak. Tony DiStefano de- 
signed the MC-1, and CRC Computers 
manufactures and distributes it. 

The MC-1 is approximately the same 
size as the Radio Shack FD-50 1 controller. 
The housing is white plastic, whichdoesn't 
match the CoCo, but it looks better than 
Radio Shack's black housing. There is one 
small toggle switch on the operator's side 
of the housing. Overall, the look is classy. 

Tony has chosen the latest state-of-the- 
art Western Digital WD1773 controller 
chip as the heart of the system. He has 
provided two sockets, selectable by the 
external switch, memory-mapped for CoCo 
1 , 2 and 3 DOS operation. The first socket 
can accept a 24-pin ROM or a 28-pin 



EPROM (2764 or 27128}. Three jumpers 
configure the socket for either the 24- or 
28-pin chip, The second socket supports 
only a 28-pin EPROM. The controller comes 
with Radio Shack Disk basic 1 . 1 . 

I was disappointed when I tried to plug 
my drive cable (standard Radio Shack is- 
sue) into the controller. The cable is keyed 
between pins 3 and 5, but the MC-1 is not. 
1 had to remove the glued-in key from the 
cable connector. I thought the printed cir- 
cuit board would be notched for a key since 
a keyed board works with an unkeyed cable, 
but a keyed cable does not work with an 
unkeyed board. The cartridge fit the com- 
puter without any problem. My CoCo 2 had 
no problem filling the low power require- 
ments of the controller. 

Documentation comes in the form of a 
three-page pamphlet. Information ;t the 
two DOS sockets is adequate but certainly 
not extensive. I assume the controller is 
capable of handling double-sided 5V4- and 
3'^-inch drives since the WD 1 773 chip has 
the power, but no mention of this is found 
in the documentation. I am running three 
single-sided, 514-inch drives and have not 
run into any problems with the controller. I 
have exercised it with numerous programs 
and disk utilities in both Disk BASIC and 
OS-9. 
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NO HYPEI JUST QUALITY DS9 
5DFTWARE AND HARDWARE 



GolUstor 2400 Baud Modem ( I 200 Houd - $ 1 00 ) I ISO 

100* hnyes cumpnloblB. sleet case, stares Tlve numbers 
Parameters stared In non-volatile ram using AT commands 



SUFERCOnn 2.0 by Dove Phillpsen 130 

Xmodem CHIC, CRC & V modem belch transfer with buffering 
Autodial and radial with keyboard macros, auto log on 
ANSI and n^Q tprm.nni emulation / Access to OS9 shell 
ascii rile capture ond send / Spilt screen conference 
Reliable with T2 or any other device even at 2400 baud 
will work with only I28K and a black and white monitor 
Pop-up windows w/Help and easy to use ALT-KEV commands 
done In IO0X assembly language tor etfecient operation 
Hal necessary to build new boot disk - Just load and run" 
Proven faster*, more reliable than other terminal programs 



ass Level 2 Login/BBS Package 



150 



Aulo Baud Tsmofi with command passing and optional hours 
Login with PES password encryption, logs access attempts 
Group and Net Accounts can be set-up. new users verified 
Configurable nenu w/User-select ANSI. 059. or no graphics 
nail, public News, and Net Hon (exchange w/other systems) 
BLAZE Included for ultra-fast bidirectional Net transfers 
Chot, Xmodem/Ymodem transfers. Help, multi-user conference 
Chnwn, FtndFUe, Pop/Label (far Windows), other utilities 
Any 0S9 command can be run from login, no dDors required 
039 Level 2, 512k, Hard drive or ND-Halt controller reqd 
Limited free updoles-modlrlcattons available upon request 
(call or write for details on USK version of this package) 



CDI-Corrier Detect Interlace Only JI5 w/logln $20 

Hardware which allows baud rate detection w/logln package 



VEF Printer Dump for Star NX-iooo Rainbow 

has fast and slow dump modes, matches osg palettes 



J20 



Indiana residents add 5X sales tax. COD Add 13. No credit cards. 
Shipping 8, handling Included. Send check or money order tor 
SIB Computers, Inc. - P.O. Bok 242SS - Speedway IN 46224 
(317) 241-6401 (voice) - C317) 244-3159 (modem, 3/12/2400) 



— rf^V 



TAZMAN 

Peace has come to the galaxy at last, and with it an 

end to Lhc Empire and its monopoly on trade. Now 

a new breed of free traders Is emerging to serve the 

needs of countless worlds. 

Soar through the universe with an old ship and a 

small cargo, searching for inhabited planets on 

which lo market your goods. Shop for the latest 

and most efficient upgrades for your ship. Stay 

clear of space hazards and sidestep planetary 

storms as you seek your fortune among the stars! 

128KCoCo3 One Disk Drive Joystick 

Runs uiidcT OS-9/Lcvcl 11 $24.95 



Armchair admiral 



•fiF§\ — 



The time-honored game of Battleship, enhanced by 

intelligent computer opponents, comes to your 

CoCo3 complete with sloops and galleons. Up to 8 

players, any mix of human or computer. 



128KCoCo3 



Tape or Disk 



S14.95 



Personal checks, money orders and C-O.D. 
All orders add $2.00 shipping & handling, 

C.O.D. please add an additional $2.0O. 
Washington addresses add 7.5% Sales Tax. 



Eversoft Games Ltd 
P.O. Box 3354 

^Arlington, Wa 98223 



(206) 653-5263 
10am to 6pm PST 
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An ad in the August 1989 issue of RAIN- 
BOW states thatthere are "Noclumsyjump- 
ers to move." I guess they are referring to 
jumpers for DOS selection because there 
are jumpers to configure the first DOS 
socket. 

All in all, this is a nice package that 
functions well at a fair price, I recommend 
it to anyone needing a controller for single- 
sided drives. 

(CRC Computers, 11 Boul. des Laurent ides, 
Laval, PQ, Canada H7G 2S3, 514-967-0195; 

$75 U.S., add $4 S/H) 

— William Baird 



Software 



CoCo 1, 2 &3 



Leisure Suit Larry — 
Larry Gets Laid Back 

Poor Larry; here he is, 40 years old, the 
owner of 1 7 cardigan sweaters, six pairs of 
pleated slacks and a 20-year collection of 
elevator music. How could things get worse? 
Easy — he can decide to change his life and 
become a party animal. "No more Mr. Nice 
Guy," he shouts. "This pussycat has de- 
cided to howl!" Larry, however, doesn't 
have the foggiest idea of what howling is all 
about. 

It's your mission, should you choose to 
accept it, to guide Larry through the prat- 
falls of modern life, to help him get laid 
back and supercool, to aid him in finding a 
bosom buddy, After all, aren't you so much 
more experienced than Larry, who is strik- 
ing out into unexplored territory? Better 
watch who you admit that experience to, 
though. 

First you have to practice "safe DOS" by 
backing up the two disks that come in the 
package. You need to fool around with OS- 
9 formatting to accomplish this, but the 
supplemental instructions are clear enough. 
There's also the everpresent boot program 
in the back, in case you need to free an older 
CoCo of its operating system inhibitions. 
Then you need to format a save disk; you'll 
see how much of a good idea that is later on, 
when the plot steams up. There are specific 
notes for swinging single disk drive users, 
in case you don't have multiple basic drives. 

The supplemental booklet also contains 
instructions on how to poke all the game 
information into a hard disk or double- 
sided floppy disks. 

Leisure Suit Larry in (he Land of (he 
Lounge Lizards (boy, there's a mouth-full) 
is an OS-9 based, 5 I2K disk game for the 



CoCo 3. Produced and directed by Sierra 
On Line, it's one of their interactive fiction 
offerings. To the new guys on the block, 
"interactive fiction" means you take the 
role of the main character and guide him 
through a series of close encounters by use 
of a keyboard, joystick and typed instruc- 
tions to the hero. 

After booting the game, you'll see a 
warning that some portions of the plot may 
not be appropriate for some children. This 
is true; some portions may not be appropri- 
ate for certain adults. Just to make sure you 
are who you claim to be, the game runs you 
through a series of trivia questions. If you're 
too young, you can't answerthem.lt scared 
me to find out that every one of them (there 
are several versions of the entrance exam) 
is easy. Of course, now it takes me all night 
to answer them, whereas before I could 
answer trivia questions all night. 

This is an adult game — a roll through 
the fast lane without having to worry about 
your spouse giving you a .38-caltber "inny" 
belly button. 

Having gotten the preliminaries out of 
the way, you're ready to start scoring. There 
are 222 possible points. You have zero, 
nada, absnlut gar nichls, zip points as you 
stand alone on the sidewalk outside Lefty's 
Bar. Well, do something! If you don't, a 
large, ugly dog is going to in just a minute 
or so. 

As with all games of this sort, make sure 
to look at everything. When you first view 
the regulars in Lefty 's, you can see that this 
is a tough place. A guy just might get a bust 




in the mouth. There's some dude talking to 
a dudette at the bar, ratcheting his jaw like 
the Devil can take tomorrow. "Blah . . . blah 
. . .blah. . .blah. . .blah!" followed by "And 
then the chief says, 'Death — by booga- 
loo!'" If you hang around this guy long 
enough, you'll hear a lot of punch lines. As 
a self-test, see how many you can tell the 
rest of the story to, and then compare your 



total score with the depravity scale found 
on Page 69. 

By the way, the instructions sort of 
make saving a game appear a rather fear- 
some experience. Let your old Uncle John 
advise you: Just go with the flow, Moe, and 
don' t bother yourself none about that fancy 
booklcamin'. You'll figure out what you 
gotta do. 

I didn't get very far the first time I tried 
it. Sort of like Larry, who is lacking grace 
and interpersonal skills. Face it, he's risen 
to his own level of social incompetence, 
living proof of the Peter Principle. How- 
ever, to each man is given his time of glory, 
his day in the sun. that experience which 
climaxes his existence as he overcomes all 
obstacles and rises to the occasion, heroi- 
cally. This may take longer for Larry, since 
a rocket scientist he's not. Actually, intel- 
lectually he's somewhere between the guy 
who just fell off the turnip truck at Ben's 
Gas 'n Go and the astrophysicist who for- 
mulated the Big Bang theory. 

Eventually you may go all the way with 
this game. If, however, you continue to 
have hang-ups with it, Sierra has a tele- 
phone number you can call at abnormal 
hours to get hints by using a touch-tone 
telephone. This is a maximum neat idea, 
game fans. 

On the other hand, in addition to the 
dangers confronting Larry (such as con- 
tracting Mai Peevis Pooey or getting thor- 
oughly and thanklessly thumped by a thick- 
set thieving thug — in 3-D), if you do die, 
there is one other humiliation. You have to 
watch Larry's body 
get recycled in Si- 
erra's special plant: 
This final indignity 
is sort of a combina- 
tion of Soyient Green 
and /, Robo(. Those 
of us charged with 
making a penetrating 
analysis of software 
programs sometimes 
feel developers of 
cutesy things like that 
slum 111 be sent to a 

penal colony. 

On the other 
hand, if you are an 
adult, enjoy reading 
"Dark and Stormy 
Night" purple prose and laugh "Har, har!" 
at corny old saws, this game is definitely 
for you. You are already a sick puppy, so 
how much harm could it do you? Besides, 
the whole thing is about as much fun as a 
person can expect to have when alone. 
People used to get hanged for having this 
much fun. 

Turn the lights down low , flip on the soft 
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Expanding Horizons 

Take your PC beyond the 
limits of floppy diskettes — 
connect to DELPHI, your 
complete online business 
and personal resource. 
With your modem and a local 
phone call, select from tens of 
thousands of downloadable 
programs, meet friends from 
across the globe, or tap into 
the world's most comprehen- 
sive databases to expand the 
horizons of your PC. 



Extensive MS-DOS 
Databases 

DELPHI'S special 
group for owners of 
Tandy MS-DOS 
computers is supported 
by the people who 
bring you PCM. 
Access extensive 
databases, where you 
can upload your favorite files 
and download programs written 
by other personal computer 
enthusiasts. Chat with other 
members and resident- experts 
in Conference, use electronic 
mail, and post or respond to 
messages in Forum. 

Portable Connection 

In the Portable Place, DELPHI'S 
home for owners of laptops and 
luggables, you'll meet others , 
download files, and get tips to 
help you make the most of your 
portable computer. 



What 
your PC 

was really 
meant 

for. 



FREE Lifetime Membership 

As a PCM subscriber, you get a 
FREE lifetime DELPHI membership 
($29.95 value) which includes a 
credit worth one evening hour of 
use($7.20). 

If you don't already subscribe to 
PCM, just request a subscription 
when you signup to DELPHI, and, 
for the $28 subscription fee, 
you'll get the same great deal! 




PCM Online 



DELPHI is your online connec- 
tion to PCM. You can renew 
your subscription, meet other 

MS-DOS users, order software or 

hardware, or inquire about 

products. You can even 

download programs that 

have been published in 

PCM. 



No Risk 



With DELPHI 

there is no risk. 

You can cancel 

your membership 

within 30 days and 

pay only for your usage 

beyond the initial one-hour credit. 




Wallet Friendly 



You can access DELPHI 
with a local phone call 
from almost anywhere in 
the United States. There is NO extra 
charge for using Tymnet or Telenet, 
NO monthly minimum, NO premi- 
um for 1200 or 2400 bps, and con- 
nect rates are as low as $4.80/hour. 




Sign up now » Online! 

With your PC and modem: 

1. Dial 1-617-576-2981. 

2. Once connected, press RETURN 
once or twice. 

3 . At the Username prompt, 
type J0INDELPHI 

4 . At the Password prompt, 
type PCM if you already 
subscribe to PCM. 
Type SENDPCM if you do 
not yet subscribe. 

5. Have your credit card 
information handy 

And very shortly you'll see what 
your personal computer was really 
meant for. 



DELPHI 

The World's Premier Online Information Service 

General Videotex Corporation • Three Blackstone Street • Cambridge MA 02139 
800-544-4005 ■ 617-491-3393 




music, murmur smoothly and turn on your 
CoCo. 

(Sierra On-Line, Inc., P.O. Box 485, Coarse- 
gold. CA 93614, 209-683-4468; $39.95) 

— John Hebert 



Softwar e 



CoCo1,2&3 



Slots & Cards — 
CoCo's Casino 

MicroDeal USA (MichTron) has released 
a Color Computer version of its Slots & 
Cards entertainment program. Slots & Cards 
simulates five different Vegas-style slot 
machines plus electronic versions of poker, 
blackjack and keno. all in one inexpensive 
package. 

I have had the pleasure of using a Color 
Computer since the days of 4K and tape 
drives. From the beginning there have been 
computer versions of the slots. The quality 
of these products has varied dramatically. 
Now Slots & Cards sets a. new standard for 
them all. Indeed this may be one of the 
finest CoCo game products ever! 




The programs come on a set of three 
nonprotected disks, attractively packaged 
with a simple hut complete instruction 
pamphlet. MicroDeal suggests you make 
backup copies of the original disks for your 
personal use. Disks I and 2 each contain 
five versions of the most common Vegas/ 
Atlantic City slot machines. Single- or 
multiple-line play and mulhcoin are among 
the variations offered. 

Disk 3 has Video Poker. Jokers Wild 
Poker, blackjack and keno. The games can 
he started using Disk BASIC 2,1's DOS 
command, if you have it. or by entering run 
"DOS". The game shell loads in just a few 
seconds. All game variations on a disk arc 
selected from a master menu. Players select 
the amount of their original stakes, then it's 
off to the casino. 

The graphics are outstanding, among 
the very best. The slot machines have the 



look and feel of the real thing. Rolling 
movement of the slot lines is extremely 
smooth and realistic. The amount of time 
the lines roll before stopping seems about 
right. In the video card games the dealing 
goes quickly. I found myself soon addicted. 
This review probably would have been 
finished a week earlier if T hadn't insisted 
on testing and retesting each of the games 
— just for accuracy, of course! 

The odds of winning are accurately re- 
flected in game play. This was soon dem- 
onstrated by my winning big a few times 
but sometimes losing everything but the 
proverbial shirt. Just the right mix of win- 
ning and losing makes the game even more 
fun to play. 

Slots & Cards has to rank with the best 
game programs available for the CoCo. If 
you ever have had even the tiniest urge to 
try your luck at Vegas or Atlantic City, 
you'll love Slots & Cards. 

(Microdeal, 576 S. Telegraph, Pontiac, MI 
48053, 3I3-334-570H; $39.95) 

— Leonard Hvre 



CoCo 3 



Software 



Big BASIC— 
A Best Buy 
for the CoCo 3 



Now that you've gone out and bought a 
Color Computer 3 with 128 kilobytes of 
memory, or better yet, one that's been 
upgraded to 5 12K, what do you do with it? 
Executing a print mem tells you there is 
about 22,000 bytes available, the same as a 
CoCo 2. So where's the other hundred 
kilobytes or the other 490K? Well, if you 
ask Radio Shack, you'll be told OS-9 Level 
II is required to access it — foranother$80. 
Plus you'll have to learn a new operating 
system and a different BASIC. And you 
were getting so comfortable with the old 
one! 

Enter Danosoft, of Mississauga, On- 
tario, with its Big BASIC. How do you feel 
about more than 90K of usable basic 
memory on a 128K CoCo 3, or more than 
475K. on a 512K machine? Now you can 
write programs up to 24K long, switch 
them into another part of memory, and 
cither run other programs independently or 
switch variables and data from one pro- 
gram to another. With a little work you can 
even "disk chain" a program of more than 
400K in length. 

Big BASIC is different from RAM disk 



programs. In a RAM disk programs are 
saved in the computer's extra memory as if 
it were a disk drive; but the programs have 
to be called one at a time, and old programs 
are erased when new ones are run. Big 
BASIC allows the programs to be run si- 
multaneously or even called separately from 
a menu program. It's sort of like multi- 
tasking: You work from two full-page 
windows, and you can have as many as 58 
programs on tap (nine in a 128K CoCo) at 
one time. 

After loading Big BASIC with a loadm 
command, you have a little more than 28K 
of user memory available — or about 6K 
more than usual. Since Big BASIC loads in 
over normal BASIC, it doesn't take up any 
extra room and in fact gives you a little 
more to work with. This is Big BASIC'S 
Window I , irs default or startup mode. The 
second window is created when you use the 
slightly modified clear command to build 
an 8K. 16K or 24K working area in Win- 
dow 2. Then the new block function takes 
over, and you can shift in blocks of memory 
of 8K to 24K in size, depending on how 
large you've made your Window 2. 

Up toeleven SK blocks, each containing 
a separate program, can be switched through 
in a 128K CoCo — and up to 58 in a 5 1 2K 
machine. Imagine running short demon- 
stration programs for a science fair or a 
computer show, automatically running and 
switching at lightning speed without ac- 
cessing the disk drive after startup. Or you 
could he writing a BASIC program in one 
block and have your calculator and notepad 
programs waiting in another block. The 
possibilities are endless. 

There are few drawbacks to Big BASIC. 
One suggestion 1 would make to Danosoft 
is the inclusion of some son of "hot key" 
command, such as CTRL-l to shift from a 
running program in Window 2 to access 
Window I again. It isn' t always possible to 
key in the window command from a running 
program, and it could be particularly diffi 
cult from a machine language program 
executing in Window 2. Then too, it isn't a 
good idea to try to run more than one 
machine language program at once; many 
of them use absolute addressing, and im- 
portant memory locations can be overwrit- 
ten during switching. There is also a small 
problem concerning compatibility with 
operating systems such as ADOS 3 and 
MJK-DOS. 

My only other caveat is to strongly 
suggest using Big BASIC with 5 1 2K. This 
utility and the extra memory really comple- 
ment each other. While I encountered no 
problems using it with 128K, you do have 
to be a bit more careful with graphics — 
some of the 128K blocks overwrite the Hi- 
Res graphics and text areas. 
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Pre-Rainbowf est Sale. 

We Pay Shipping Until Oct 20th!* 



MUL TI-FONT PRINTER 

NX-1000 



Reviewed in AdnI Rainbow 



7 Color Printer 
for Your CoCo 

The NX-1000 gives you 

plenty of print options tor 
attractive printing. 
Fourtypestyles, 
Four pitch sizes 
in standard 
and italics 
for a total 
of 32 
NLQ 
modes. 
The NX- 
1000 Rainbow 

gives you all these features plus 
online access to 7 color printing and graphics. 
Black, blue, red, yellow, green, violet, and 
orange. Both models have a 1 year warranty 
and a30 day online trial. 




NX-1000 SPECS; 144 eps Draft. 36 cps NLQ [18 » 23 dot matrix). 
i NLQ Fonts, Italics, Sub & S jpeisdpts. Emphasized, Oou- 
blsstrike, P'oporfonal, Condensed, International, Downloadable. 
Quad Tail. Double Tall. Undenina. 9+ Pilots. Fcrwaidand Reverse 
n/216" Line Fseds. Absolute or Relative Vea 5 Hurz, Tabs, Left, 
CMWotRigblJiisltahen.BGfaphiesModesto 1920 dpi. Macro 
Instruction. Birjiractan. AdjuStaWa Tractor Feed. 200,- PrintaUe 
Characters. Semi Aulo Steel Feed, Front Panel SoU Touch 
Control. Epson ana IBM Emulate. 4k Data Bute* Hex Dump. 
flalntww: Same plus color 
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NX-1000 SYSTEM INCLUDES: 

♦ Star NX-1 000 Printer £ A QQ 

• Blue Streak Ultima y | JJJJ 

■ Software Support Trio +$1 o Shipping paid- 

COMPLETE 



The Smallest, Sleekest, 
Fastest Serial To Parallel 
Converter You Can Buy! 

7 Switchabel Baud Rates 

300 •600*1200 '2400* 
4800-9600-19200 



Use this "smart" cable to con- 

nectaCentronics parallel printer 

to any version CoCo or use it to 

improve performance of your 

current printer. The 

cables are long-life, high 

quality shielded cables 

with moulded plugs for 

extra durability. 

Try a Blue Streak Ultima on 
your system for 30 days RISK 
FREE. One year warranty. 



The Blue 
Streak Ultima 
$3995 



Powered version 
add $6.00. 



+S2 Shipping 
PAID* 



Software 
Support Trio 

Type Selection/Tutorial 

Online instructional program that will select 24 
special features of your printer or display meth- 
ods to incorporate them into your 
programs. 

Super Gemprint 

Will transfer Pmode 0, 1 , 2. 3, or 4 picture screen 
to printer 8"x11" hardcopy. Black/white, while/ 
black or grey level shading for color. 

Hi-Res Super Gemprint 

Disk software that will transfer a Hscreen 1 , 2, 3, 
or 4 picture screen to printer. Grey level shading 
for color. 



FREE 




All Three 
Programs 

9 95 



$ 269 
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NX-1000 RAINBOW SYSTEM 
INCLUDES: 
•Star NX-1000 
Colour Printer +$1 n Shipping paid* 

• Blue Streak Ultima PDMPI FTP 
-Software Trio ^/WKLt/fc 

• Color Super Gemprint 




*v FREE t 

with purchase of any 
NX-1000 System , 




Color Super 
Gemprint 

Print your Graphics Screen 
in Color on your NX-1000 
Rainbow! 



Use your favorite program to create a 
pmode or hi-res graphic Image, but 
don't stoptherelRunourcolorgraph- 
ics software and print a color image 
using a palette of 81+ colors on your 
NX-1 000 Rainbow from a CoCo 1 , 2, 
or 3. Requires 32k ECB Disk. 




Price, availability and specifications 
subject to charge without notice. 



Order Your System Today... Call (513) 885-5999 



DAYTON ASSOCIATES 



ofW.R. 

Hall , 



INC. 



Visa & Master accepted within 

the continental U.S. 

Ohio residents add 6.5% sales tax 

9644 Quail wood Trail • Spring Valley, Ohio 45370 cod add $3.00 

■Shipping paid only in Cmlinenlal U.S. Normal shipping charges to Canada. P.R. HI, AK, APO, FPO are double. Triple charge lo all olher couniries. These areas can lake advantage of show 
special by deducting ifte continental U.S. shipping amount Irom thair normal shipping cosls. Olfer expires October 20, 19S9. 



The version of Big BASIC sent to me 
included both the original distribution ver- 
sion and the latest revision. Some minor 
changes in the later release include more 
demos, better compatibility with hard drive 
systems (although there is an incompatibil- 
ity problem with Burke & Burke's Hyper- 
I/O system), and an improved pclear 
command to clear up to 17 graphic pages, 
plenty for serious animation in medium 
resolution. 

In general 1 find Danosoft's Big BASIC 
to be a useful, even valuable tool for serious 
programmers and other heavy users. The 
documentation is clear and complete, and 
the program is easy to use. The sample 
programs supplied arc loaded with com- 
ments that help make adapting your favorite 
basic code a snap. At less than $40, it is a 
bargain, particularly for CoCoists daunted 
by the $80 price tag and 700 pages of 
documentation that come with OS-9 Level 
II. Danosoft has a winner in Big BASIC, and 
I recommend it to anyone wanting to get the 
most out of a Color Computer 3, 

(Danosoft, Box 124, Station A, Mississauga, 
ON, Canada L5A 2X7,416-897-0121 ; $393$ 
U.S., $46 Ci>N, add $2.50 S/H) 

— J, Frederick Toon 
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Software 



CoCo 3 



TextPro IV— 
The Old Way 
Still Works 

I should mention at the start that I'm 
writing this review from a different point of 
view from what you usually find in THE 
RAINBOW and other magazines: I am not 
using this program for the first time with a 
mere week or so before I need to submit my 
review. I have owned TextPro IV for more 
than a year. Thus 1 am aware of the pro- 
gram's strengths and weaknesses. 

I bought TextPro IV when I became fed 
up with the ultra-slow performance of my 
old CoCo 3 word processing software. So 
when it came time to find a better program, 
J didn't have any doubt that I could find a 
better performer, I looked at dozens of 
advertisements in the rainbow. TextPro 
IV was billed as "the most powerful word 
processor for the CoCo3," and the price 
was the highest going. After reading the 
ads, comparing the listed features, and think- 
ing very hard, I decided the extra power 
might be worth the extra money and ordered 
TextPro I\\ 



I quickly discovered that I had let myself 
in for more word processor than I had 
bargained for. When the ads any TextPro IV 
is the most powerful word processor on the 
market, they aren't kidding. This software 
has capabilities a serious business user 
wouldn't tap in the average year. I've been 
learning about TextPro IV for a year, and 
there is still more to learn. 

The first thing I should tell you, though, 
isthat it you usea word processorpriniarily 
to write letters, you should get something 
less expensive and less complex. That's 
because there is a price to all this power 
besides the highest dollar tag outside the 
OS-9 world. That price is complexity. The 
manual for TextPro IV is about 70 pages 
long, and you need to read practically the 
whole thing before typing one letter. The 
test-formatting commands almost make up 
a complete programming language, includ- 
ing input commands, disk access com- 
mands, screen formatting, printer control 
and decision makers. Learning TextPro IV 
is compurable to learning BASIC — and I'm 
still learning BASIC after almost three years 
of fairly intensive hacking. 

One thing that jumps out immediately 
about TextPro IV is that it doesn't look like 
most other word processors. If you're 
expecting a window with a movable cursor, 
a status bar and a bunch of one-key com- 
mands or pop-up dialog boxes, you may be 
in for a bit of a shock. The text editor seems 
primitive in comparison to other programs. 
You can't steer the cursor to where you 
need a correction and type over your mis- 
take because TextPro IV doesn't have a 
full-screen editor. Instead, you enter text in 
a line-number environment similar to BA- 
SIC; when you want to change text you edit 
it by line {although the editor is much easier 
to use than Basic's edit command). 

TextPro /V's operation is in the finest 
tradition of the older, mainframe-based word 
processors that were in use before micro- 
computers were even a lab curiosity. Those 
word processors — which saved their files 
to paper tape or punched cards — were 
divided into a text editor and text processor 
(or page formatter). The text editor was just 
for editing text and no more. Often the 
commands were sensitive to tiny errors, 
such as extra spaces inserted, and the lan- 
guage used was cryptic enough to make 
OS-9 or UNIX look like plain English. 

Once you edited the text into the form 
you wanted, inserting commands for the 
page formatter into the body of the text, you 
then invoked the page formatter and hoped 
the thing would print in the fully formatted 
form. If that seems like a lot of trouble to go 
through to gel a printed document, it was. 
But when you were working on your doc- 
toral dissertation, it was a major improve- 



ment overpaying a typist to type and retype 
and retype. 

TextPro IV is a major step up from that 
sort of program, but it keeps a lot of the 
flexibility (something often lacking in 
programs written with ease of use as the 
foremost requirement). You still have the 
line-by-line entry and editing, but those 
lines now auto-number; and you can move 
the cursor along the line — and even change 
lines in the Edit mode — by pushing arrow 
keys. To make a change, you simply type 
over it. For more extensive changes, there 
are prompt-line commands that move or 
copy text, delete it, find and replace occur- 
rences of character strings, and even allow 
editing a document bigger than the 42K. 
buffer. 

To control the appearance of text when 
printed, commands are embedded into the 
body of the text just as with old-time main- 
frame programs. The difference here is that 
the embedded commands are reasonably 
easy to remember. Each command begins 
with a dot (.), followed by two or more 
characters that constitute the name or an 
abbreviation. These include things like .11 
(to set the line length of the printed page), 
.tm (to set the top margin height), and 
.bold (to initiate or end bold-face print). 

In TextPro IV. these functions are com- 
bined into one program that runs in only 
1 2SK, including using a graphics screen to 
display up to 2 1 2 characters per line. Since 
the 80-column display is reasonably read- 
able on a composite monitor. I assume that 
even the higher-density screens are read- 
able on an RGB monitor. It includes the 
option to kill the color burst and to use text 
screens of 32, 40, 64 or 80 columns by 16 
(in32-or64-columnwidth}.25 or 28 lines. 

TextPro IV follows the rules and uses 
the basic ROM routines for its disk activ- 
ity. Thus it tolerates somewhat modified 
versions of Disk BASIC. I normally start my 
CoCo 3 with a program that modifies Disk 
basic to allow access to 40 tracks, sets a 
faster stepping rate and makes use of a disk 
access patch to allow reliable reads and 
writes in high-speed mode. TextPro IV 
tolerates these modifications and more. 

In addition to "following the mles," 
Cer-Comp's word processor is compara- 
tively fast. One reason for that is that TextPro 
IV runs the CoCo 3 at double speed. An- 
other reason is efficient handling of data. 
When the software needs only to take care 
of the current line and a normal screen 
scroll at the end of that line, things are a lot 
simpler and faster than when an entire 
screen needs updating. Still, very careful 
software design is evident since the pro- 
gram preserves the ROM routines (which 
normally run from RAM in the CoCo 3), 
inserts itself, uses a minimum of about I8K 
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for the screen in the graphics mode, senses 
RAM size and installs a RAM disk if it 
detects a 5 1 2K machine, and still has room 
for a 42K editing buffer. 

There's also a lot of real power and 
flexibility built in here. If you have the 
budget for a hard disk and laser printer, 
TextPro IV works with them (assuming 
that the hard disk is accessible from BASIC). 

You can send a boilerplate letter to 
everyone on your mailing list by typing the 
letter once and including text-processing 
commands that cause the page format sec- 
tion to repeat the text, inputting the individ- 
ual data from a disk file, until the entire list 
has been processed — and you can go get a 
cup of coffee while it does it. 

You can set up a file to prompt you for 
input during processing — for instance, to 
insert the current date — and then include 
the data entered in several locations in the 
document. You can process a document to 
disk instead of to the printer, and then 
transfer that file via modem so that the 
recipient needs only to dump the contents 
of the file to a printer to see the full, 
formatted output, with underlining, bold 
text, italics and so forth. 

TextPro IV also handles proportional 
printing, something most word processors 
don't do, though it justifies only by insert- 



ing the single-dot spaces between words, 
rather than evenly between letters. 

TextPro IV won't give you any help in 
using it. There's a good manual that con- 
tains all you need to know, though under- 
standing the manual is easier if you're at 
least a bit of a programmer. There's as 
much power here as is found in some BASIC 
interpreters, and you shouldn't expect to 
learn to use it all in a couple of hours. 

Furthermore, Te.xtPro IV won't tell you 
what to use it for. If you aren't sure you 
need all the power a word processor can 
pack, maybe you don't need this word 
processor and don't need to spend this 
much money. I've had this package for 
over a year and still wonder if I really need 
this much word processor. On the other 
hand. I know now that if I ever need any- 
thing special done, TextPro IV will do it. 
All I have to do is ieam how to tell it what 
I want. 

Knowing what I know now. would I buy 
TextPro IV again? Probably. TextPro IV 
gives me everything I need from a word 
processor. It's like four-wheel drive: It's 
better to have it and not need it than to need 
it and nnt have it. If you never word- 
process anything but letters, I've got accipy 
of an old. siow word processor I can sell 
you, and I guarantee you can learn it in an 



hour. But if you expect to do the kind of 
word processing people usually associate 
with multikilobuck systems and huge 
amounts of memory, you just might need 
TextPro IV. 

(Cer-Comp, 5566 Ricochet Ave., Las Vegas, 
NV 89 HO, 702-452-0632; $89.95 plus $3 S/H) 

— Don Quails 



Software 



CoCo1,2&3 



Ultra-Cat— 
Catalog Disks 
With Ease 

If you own a disk drive, you know that 
it can be difficult to remember where all 
your programs are. I've lost a few programs 
from time to time, but that is all changed 
with Ultra-Cat. 

Ultra-Cat is a DASIC program with 
machine language subroutines that helps 
you keep track of disk-based programs by 
creating a catalog file of standard (non-OS- 
9) disks. The program runs on any Color 
Computer with at least f>4K of memory and 
one or two disk drives attached. 



:i;II 



COMPUTER ISLAND EDUCATIONAL SOFTWARE 

$15 each-tape or disk 

Moneypack 

Math Invaders 

First Games (Ages 3-6) 

Arrow Games (Ages 3-6) 

Cocowheel of Fortune (for Coco 2) 

Cocowheel of Fortune (Coco3/RGB) 

Spanish Baseball 

French Baseball 



| 




Nae®=T» 



The first magazine devoted exclusively to OS-9!!! 

i packed 



Every other month, you will receive a disk jam packed 
with programs and articles ail forOS-9. 



In each issue: 



f 10 helpful and useful proe^ams lo help build yotirOS°9 library. ^ t ^ F ^ 

■/"llisLrucltonM, examples, and samples Dfl1aslc09 procedures and subroultnes lo 
help will] your own programs andyourundiniitundlngorHiistcOEl. 

^ Ingram reviews, I Urns. Help columns, and Informative articles lo advance 
your knowledge of OS 3, 

• Supplied loyally on S>.25" disk 

/ Hound manua] sent to t:ai:h new subscriber for help In felling Nine-Time* up 
and running us we]] as lips on using 11 wilh a ram disk or hurt! disk 

J All ^raphk; ^joystick InLcrfaee Tor ease uT use!! 



And all ihis Tor only S34.95 a year! Most other 
packages offer only 4-8 programs Tor ihc same 
amminl, while you gel 60 programs plus more;! 



Prit.:cs:| - 



t-YrjarSllhs. 
liijuk issues 



STUMS 
$7.00 



TrirrinlTitllA.^i^ancc \ lEj^uirkl 
:■>*■ ii- in call | 'K«-i KHT Sunday* 


J^^giESIHI 



H i io r.i-:.iiv Cmtdi 

5"r.<r1r 1-Wii.sc Frrapn 
TruardpT- nlraflC SCTlii U.S. ch-f^kor :i:Miif\ (BF«Jrr \k\\ 

JWTEnlerprises 

5755 LockwoocI Blvd. 

Ynungstown. OH 44512 

'.-"■■■;■. h'jCO.Ij,>; iiisir!^, !.r.ikr.-i.. f^-a.-,,- unr. U.S. Bj.nne j aidci-i 
Cffcicka. aUiw 3 wrekafuF receipt or Ural Isfrur/bark l*aur. 

W-r it * ti*S+mitt at Hlst9V#fm Sityi •** Ebf* «J14f Mxm***. J 
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A simple rotpulteacai" command is 
all that's needed to boot Ultra-Cat. which 
then proceeds to look for its ML subrou 
tines in memory, If the program does not 
find them there, it loads them from the disk. 
The main menu then appears and presents 
you with a list of options allowing you to 
select the single- or dual-drive mode, look 
at the directory of a disk, create or merge 
catalog files, or exit the program. Creating 
a catalog file of your disk-resident pro- 
grams is very easy because the program 
displays the appropriate prompts to guide 
you swiftly and effortlessly through the 
file-creating process. 

Ultra-Cat reads all the directory entries 
and the granule allocation table from the 
disk and stores the information in a catalog 
containing seven categories, which include 
the following: filename, tile extension (has, 
bin, etc.), type of file (basic. ML, data or 
text), file format (ASCII orbinary ). file size 
in granules, the name of the disk (which you 
enter), and the number of free granules left 
on the disk. The program also creates a 
comment category in the file, which I'll 
explain later on. The program then prompts 
you for a filename. The file created is saved 
to the catalog disk, and Ultra-Cat returns 
you to the main menu. 

When you have a number of files on the 
catalog disk, you can then use Ultra-Cat to 
do a global or partial merge of these files 
into one larger file. This feature proves very 
helpful because you can mix and match 
catalog files, and by merging several smaller 
files into one larger file you can save a 
considerable amount of space onyourcata- 
logdisk. If you choose todo a partial merge 
of the files. Ultra-Cat displays all catalog 
files on the disk and then prompts you to 
select the ones you want to merge. Other- 
wise it merges all the catalog files it finds on 
the disk. Either way, Wfra-Ctz/displaysthe 
filename of the file currently being read 
into memory as well as a running count of 
the amount of free memory remaining in its 
workspace- 
After merging the files in memory, Ul- 
tra-Cat prompts you again for a filename 
and saves the merged file to the disk ynu 
choose. You can decide whether you want 
to "kill" the original files merged together. 

One thing the manual does not tell you is 
that the Kill option does not delete any 
catalog files created during the same ses- 
sion. You must press break to exit the 
program, then run it again to merge and 
delete the catalog files Ultra-Cat saved to 
disk. 

The manual is easy to understand and 
talks a little about error recovery. But the 
program is so well-written that you may 
never have to refer to it after the first time. 

Now, a little had news. As far as catalog- 



ing your collection of disks. Ultra-Cat 
does a fine job. However, if you want to 
edit, sort, alphabetize, enter comments in 
the comment category, even print or look at 
the catalog f i les. this program will not do it. 

Ultra-Cat is part of The Ulna-Base soft- 
ware family sold by Tothian Software; as 
such, the files created by Ultra-Cat are de- 
signed to be used by Ultra-Base. 

I received Ultra-Base along with a copy 
of Ultra-Cat, so 1 will say a few words 
about it. Ultra-Base allows you to perform 
searches and number sorts on the catalog 
files. You can scan, alphabetize, append, 
edit Or print these files. When using Ultra- 
Base on the catalog files, you can put your 
list of programs in practically any order 
you want because Ultra- Base' a alphabet- 
izing function, as well as other functions, 
works on just about any category in the file 
(filename, extension, disk name, etc.). 

Considering the price at which Ultra- 
Cat is marketed, the program needs a simple 
printer driver of its own so that its users can 
print catalog files without having to resort 
to another program. On the other hand, 
Ultra-Base is a fine database program and 
Ultra-Cat complements it nicely. 

As an owner of over 800 disk- based 
programs. I appreciate the organization 
Ultra-Cat and Ultra-Base bring to my disk 
collection. For more information on Ultra- 
Base, see its review in the January 1989 
issue of THE RAINBOW. 

(Tothian Software, Inc., Bos 66.1, Rimers- 
burg, FA 16248; Ultra-Cat $24.95, Ultra-Cat 
and Ultra-Base $39.95: add $2 S/H) 

—Richard L. McNabb 



COCO 1 , 2 & 3 



Software- 

C.A.R.— 
Computerized 
Auto Records 

Performing timely maintenance on your 
car is very important. It makes your vehicle 
longer-l ived, more reliable, and more cost- 
efficient. Keeping records of such mainte- 
nance not only helps you determine when 
service is due but may help you get top 
dollar for the car if you sell it. 

Maybe you agree that recordkeeping is 
a good idea, but you're not interested in 
using a complicated spreadsheet or data- 
base program to accomplish it. C.A.R.. a 
BASIC program from E.Z, Friendly Soft- 
ware, might be just what you\e been look- 
ing for. 

Reasonably priced, C.A.R. provides an 



easy way to maintain a service record for 
your vehicle. The program does not just 
keep track of regular maintenance, either. It 
provides you with reminders of when serv- 
ice is due and computes gas mileage, cost 
per mile, and the total amount of money 
spent on the vehicle. 

CAR runs on any Color Computer 1,2 
or 3 with a disk drive attached. A printer is 
required only if you want hard copies of the 
vehicle records. Before using the program 
you should make a backup as a working 
disk, because CAR. repeatedly writes to 
the disk during execution. 

Booting the program is easy; just insert 
the disk in your drive and type rum" car™. 
After the title screen appears, you are 
prompted to insert a data disk, which can be 
the CA.R. disk itself (better use that backup 
copy!) or a separate data disk. If C.A.R. 
cannot find its index file, you are asked to 
enter the information required to make one. 

After this you are shown a schedule for 
five types of maintenance: oil change, oil 
filter replacement, chassis lubrication, 
engine tune-up and tire rotation. At this 
time you can change the miles/months fre- 
quency of any of these, When you have 
finished entering this data, you proceed 
either to the File menu or return to the main 
menu to set up a file for another vehicle. 

In the File menu the first option allows 
you to add data to a file. The categories of 
service data to add to the file include fuel, 
oil changes, oil filter replacements, lube 
jobs, tire rotations, tune-ttps and "other." 
The cost for each item is alsoentered at this 
time. The "other" category allows you to 
enter items up to 32 characters in length. 

After each entry C.A.R. writes the item 
into the disk file. If you forget which items 
you entered, you can always use the View 
File option from the File menu. This pro- 
gram won't delete duplicate entries from 
the file. In fact you cannot delete any en- 
tries at all. Also from the File menu you can 
search the file for a particular word or 
number, check the maintenance reminders 
(and possibly make a printout), compute 
total cost (cost per mile and gas mileage), 
view the file onscreen, make a printout of 
the entire file, back up the file onto another 
disk (single- and double-drive systems are 
supported), return to the main menu, orquil 
the program. Indeed this is quite a lot of 
options for such a small program. 

The manual that comes with C.A.R. is 
well- written and easy to understand. The 
program itself is so simple to operate that 
one might not have to refer to the manual at 
all. just boot and run il. 

As you can see, C.A.R. is full of features, 
yet extremely easy to use. In consideration 
of its asking price (under $10), I believe 
C.A.R. to be a very good bargain. If you 
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choose to lake advantage of all the features 
C.A.R, has to offer, you should easily save 
the purchase price many times over in the 
form of reduced operating costs over the 
lifetime of your vehicle. 

(E.Z,Friendlv Software, 1 ISCorlies Avenue. 
Poughkeepsie, NY 12601, 914-485-8 L50; 
$9.95) 

— Richard L. McNabb 



CoCo 1.283 



Software 

CoCo MIDI 3— 

A Multi-Track MIDI 

Recording Studio 

If you're a musician of the '80s, or 
aspiring to be one. chances are you have a 
keyboard music synthesizer. If your syn- 
thesizer uses MIDI (Musical Instrument 
Digital Interface) and you have a CoCo. alt 
you need is CoCo MIDI 3 to make your 
system sing! 

Created by Lester Hands, the master 
programmer who introduced Lyra to CoCo 
users four years ago, CoCo MIDI J is a 



software/hardware package that allows for 
two-way communication between a CoCo 
and any MIDI-eapable device. Not to be 
confused with a sound digitizer, CoCo MID! 
3 turns your CoCo into a true 10-traek 
MIDI sequencer/recorder thai allows you 
to record, play, compose and edit MIDI 
data. System requirements are a CoCo with 
a minimum of 64K, a disk drive and a 
Multi Puk Interface or Y-cable. 

The CoCo MIDI 3 package consists of 
one unprotected disk, a hardware MIDI 
interface pack and a pair of 6-foot MIDI 
cables. CoCo MIDI 3 is compatible with 
the CoCo MIDI hardware pack (formerly 
by Speech Systems) and Col orchestra. If 
you already have the hardware from Speech 
Systems or Colorchestra, you need the 
CoCo MIDI 3 hardware. 

Setting up the system is easy. Make sure 
your CoCo is turned off, then plug the 
hardware MIDI interface into a Y-cable or 
slot of the Mulli-Pak Interface, The MIDI 
cables are then plugged into the IN and OUT 
ports of the MIDI interface and your syn 
thesizer. The two cables allow data to be 
sent back and forth between your CoCo and 
synthesizer. Since MIDI signals and MIDI 
hardware connectors are standard, there 
should be no incompatibility problem with 
your particular MIDI synthesizer. 



The thoroughly indexed 40-page man- 
ual includes comprehensive definitions and 
a tutorial, and the disk has sample files to 
help you get started. You begin by entering 
loadm ™cm3", and CoCo MIDI 3 quickly 
loads and auto-executes. One key press 
takes you to the main menu, displayed on 
l he standard 32-coIumn green screen. If 
you're using a CoCo 3. it automatically 
goes into double-speed mode, 

CoCo MIDI 3 is like a 10-traek studio 
tape recorder, allowing you to create and 
build a composition by recording each music 
track separately in real time. Depending on 
your synthesizers}, you can have CoCo 
MIDI 3 play one or more tracks while you 
record another. Tempo and other variables 
can be adjusted while editing tools let you 
leview and modify compositions note by 
note or block by block, 

From the main screen you see 10 status 
lines for each of the 10 available music 
tracks, and across the top is a menu bar for 
quick access to all of the program's fea- 
tures. Each of the !0 track status lines 
displays the total number of MIDI events 
currently in a track, whether or not a track 
has been set to be played or not. The main 
menu screen also displays how much total 
system memory is currently available and 
how much is used by the edit buffer. 




The Seventh Link 



I this program is 
quite simply the 
_ best rolc-pfayirisr, 
adventure ihe 
CoCo has ever seen. 
You must huild a 
chai'iieifij' wito will 
adventure as your 
aJter-ego through 
wild land*. l>aitlc 
fierce monsters. 
sail treacherous 

s*asi_ travel to other worlds and adventure through the dismal 

passages of Eliras many dungeons. 
These dungeons are the visual highlight of the program. 

Presented in high speed 16n:oloui' 3D, and full of monsters. 

ladders, pits and water. 

flooded rooms and doors, 

chests and healing fonts, they 

wilt keep you wandering and 

wondering for many 

fascinating hours. 

Of course, you will need to 

aim and provision yourself 

Tirsi. and perhaps find friends,; 

in aeeom party you veiihin ihe 

many castlesyou wilt find 

amongst the islands of Elira. 
'The package includes three 

dises, a 30-page manual, 4 

maps., a quick reference card 

and a strip of simulated superconductor wire, 

Price: $38 US/ $48 Cdn 

Rctlui res; J 28k CoCp3. .1-40 Version! .2 Features: hxint 
Uaekdnvc (\ ouv RS drive is 
capable of 40 tracks if it's not 




mnnsler. I'aslp r lmoi-nji. 
faster dungeon movement. 



an old grey one.) and* beHer'uu tsld'e srapn lesi 

Hint liook [20 pg-i, dngn/town maps, clues etc.):$550. Rooks 
for Calad urili or 2 (Specify): $3.50. Rooks, add $1 Sf'H each. 



Studio Works 



Al "asl. here is ihe digital audio samprei mat delivers 
what oilier systems promise. It features full point and 
elrck operation, on-screen graphical display and 
editing of TWO samples al once, using tivo available 
audio clipboards and a host of editing/ manipulation 
features. 

An audio signal is digiU«d through an adaptor table 

[comes VAin package, or you may use the Maxsound 

cable) which plugs into your joystick port. Once the 

sound has been recorded into £oCg's mefnory, you 

can alter 11 and' play it bacH. record it on disc and 

include il iri your own BASIC or ML programs. 

Features include: reverse-, delete-, copy-, volume 

eant*tt[., piay.hlccK, saqy&ne*r, envelop* drsiw, 56 

samples in memory |51£fc OJity, on 1g8kj, play any 

from Keyboard igfeat for adding special effects to 

home movies), ulaythrougfi, looping, file cornpressiorp, 5.19-1 7.05 KHz 

'ecoid rate, 1512«: 10-38 seconds, 133K; 1,5- IS seconds), BASIC driver 

program, and more. 

Wilh Ciible: $541 S/i64C<in, «itli.ml:W>l S7$4<K dn. 




Hf 




fReq:CoCo3 s drive, 
mouse or joystick) 



NEW!; Sound Effects Packs. Load a few samples into Studio Work?, add 
them to movies or answering machine messages, or anything! $14 Each. 

FX1 : Genera, \A discs, 12 Samptesi includes: Breaking glass, ear starting, creaKy doof, applause, eie- 
FX2; Animals (3 discs, 1 1 Samples!, Dogs barking, monkeys, frogs, chicnens, etc. 



rulndiiril 2: SWiHturiluneM 
Mnmiiv^u.!, ii'irrrii threaten the Vatte 
Dim issvni in mm'uix' ln-lp i'i'.mii tin." 
[KM era ih.ii remain on Lord's Isle. 
] jij ship iswivbid and lie finds 
himadl can ashnn; -»n j t;>nJ Ihtii ii 
held in iIil grip of ihe enemy. 
EVompted k- 1 in- Mictcss ntihc 

hii^hk* i L v3;,imt-J f'^hdurit hlniflL- flf 
I.rC/lI. this [nro£r.irn Wd&emipely 
re-»ritt«i r. > take .iJv.inr^- of the 
C'nC'.i Vs &pced. gryplifcs :tnd 
HHmiiiy Hi cnsiTi- inc .if i he mini 
imurcsiiM.- iijicnturo "■• he fitund $ 
■ in IhttfCoCn. Cil.iJunl 2 nv.>p.n>/i.i>$| 
over TOvertt* iind L'.-tnuins in cscc^.i 

OflW defined .vhjut:. llu->vrn.' !, & 

|>l;iyed in art unstructured woridiAilicli 
Around >m a gRtphtcwftKleffl . V» hen yc 
nn-saven. :md vnu m.iv msnipuiate ii 

"Ctn nil Kt'v\M':inlii-i tiSt. 

The rm*cfc:ipe Endudes: a Z0 page rnsnu 

.mid _ dttCfc. 



'jiH 



See review. Raintxwt 
June 80, p.icc 126,, 




. •■■fis-j !.'tE-. r^ r*avr ns tt«ft^? Ho- - 
yiHi cKpl^iv by af rolling your ch;tracier 
*u .ippfOLitli Lin ^hjt'ti,, iii nflUM '^ prini^J 
using multi-word tnclish coinmaiias such at 
r-JCrOKTHBXUNLOCKTHEDGOR". 
1 1X1 7" m:ip. velvet ptnjcli erf Powrarstotte 



Price: $32 US/ $38 Cdn gS 



Requires: 128K 
C0C03, 1 drive 



Also available: CaladuriL Flame of Light (S4K CoCo 1/2/3. 
drive $18'$24). reviewed in The Rainbow, December 8? 



OBLIQUE 
TRIAD 

32 Church Si, 
Georgetown 

Ontario 

Canada 

I.7G2A7 

4168778149 



We Accept: 

kflastftrnafd, 

Amejc, persona 

che-quesand 

money o titers. 

COD in Canada 

only. Please ada 

hi rid shipping lo 

ad orders 
Onlano residents 
please add 3% law. 
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Unlike Lyra's graphics-oriented, point- 
and-click environment, CoCo MIDI 3 does 
not accept mouse or joystick input; access 
to all options is through the keyboard with 
single-key commands. I found this method 
easy to learn and intuitive to use. 

To begin a MIDI recording session, for 
example, working from the main menu, 
you first use the arrow keys to scroll the 
cursor to the track you want to record. You 
then press P to access the Perform menu. 
An option box immediately opens; press R 
for Record and CoCo MIDI 3 immediately 
begins recording. 

Time is displayed by a digital clock 
indicating your position in the music se- 
quence in measures and beats. As you play, 
each note is recorded to a resolution of 1/ 
96th of a beat, and you are advised of the 
total number of notes played so far. 

CoCo MIDI 3 records each note as a 
single data line, containing alphanumeric 
values for the note type (or MIDI event), its 
velocity (volume), how long it is sustained, 
its place in the sequence, and the channel 
it's being played in. While not presented as 
standard musical notation, the information 
is easy to understand. A middle C, for 
example, is displayed as C4. A C# one 
octave above middle C is displayed as C5#. 
and soon. 

CoCo MIDI 3 offers some powerful 
editing tools. You can change any data 
variable on any track, a note at a time, or 
entire blocks of notes at a time. You can 
play your composition from any point in 
the editor, and record new notes from any 
point. A convenient Goto feature allows 
you to jump instantly to any point in the 
sequence, You can have the notes sound as 
you scroll through the data in order to 
locale miss-keys. 

And speaking of mistakes, should your 
playing have roamed inadvertently ahead 
or behind the beat, there is a powerful 
Quantize feature that allows notes to be 
rounded off to one of 10 selectable frac 
tions of a beat. A useful scale can be used to 
gradually change velocity data over time to 
create smooth crescendos and decrescen- 
dos. There is a powerful Filter command 
that allows you to review and edit only 
selected kinds of MIDI data. You can even 
view and edit all tracks simultaneously. 
Many more editing features — too numer- 
ous to mention here — are also available. 
Suffice it to say. plugging your keyboard 
into CoCo MID/ 3 is only the beginning. 

Aside from basic note data, CoCo MIDI 
3 also supports other MIDI events. In- 
cluded are system event messages, instru- 
ment selection, key pressure, channel pres- 
sure and pitch wheel. For more advanced 
applications, CoCo MIDI 3 can act as master 
orslave. and there is a song position pointer 



tor exact .synchronization with studio tape 
recorders. 

My only misgiving with CoCo MIDI 3 
is its limited memory capacity. Because 
each MIDI event is recorded as eight bytes 
of memory (as opposed to Lyra's two bytes 
per event), a single composition is limited 
to a total of about 5000 MIDI events, or682 
beats. While this is an impressive feat for 
the 64K CoCo. it did mean that my own 
four minute, nine voice composition con- 
sumed 94 percent of the memory and re- 
quired 18 granules of disk space to save. 
Disk files can be I inked to play in sequence; 
but in order to make use of additional 
internal memory, a disk controller ROM 
that allows access to RAM disks (such as 
ADOS-3) is required. 

CoCo MIDI 3 is an intelligent, accom 
modating, easy-to-use MIDI sequencer/ 
recorder. This program offers an efficient 
and powerful tool for today's musician. 

(Kulaford Research, P.O. Box 143, Imperial 
Beach, CA 92032, 619-690-364S; $150, $59.95 
for disk only) 

— Walter Mvers 
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MasterDIR— 
Now Let Me See 
. . . Which Disk? 



1 have been searching a long lime for a 
disk directory file program to organize my 
disks. And let me tell you, Fve tried many 
over the past few years. None I came across 
were satisfactory. Most were extremely 
slow. But now I've found a program that is 
close to what I've been looking for ■ — at 
leasl it comes closer than any other I have 
seen. MasterDIR by Sportsware is a very 
good disk cataloger for the CoCo 3 disk 
system. 
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8) 
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61 
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SAvEn MASTER DIRECTORY' 
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ENB PROGRAM 



If MasterDIR has one outstanding fea- 
ture, it is speed that leaves other similar 
programs in the dust. MasterDIR is 100 
percent machine language. The program 



itself occupies the lower area of memory, 
and the data files are saved in the remainder. 
MasterDIR holds up to 2238 filenames 
from your disk directories. You can use 
files from up to 250 disks in one MasterDIR 
file. And the master disk comes to you on 
an unprotected disk. 

Upon booting MasterDIR and pressing 
any key, you are greeted by a main menu 
with nine options. This menu is so easy to 
understand that you really have no need of 
documentation . . . my kind of program! 

Option 1 allows you to clear all mem- 
ory. When you boot MasterDIR. it auto- 
matically loads your data file; if you want 
to start a new file, it is necessary to clear 
memory with this option. Option 2 allows 
you lo place a disk's directory in memory 
(you are asked for a two-digit disk name). 
Option 3 displays the directories in mem- 
ory by disk name. Please note that it dis- 
plays only one disk at a time and not the 
whole daia file. 

Option 4, which 1 find to be the most 
useful function, is the "inquire" feature (I 
would call it a search feature, myself). 
After you type in the name of a specific 
program, or any part of it, it displays all 
files meeting that criteria. A truly useful 
feature. Option 5 prints the directory to 
your printer. As with Option 3, it prints 
only one disk directory, not all. Option 6 is 
the alphabetizing feature, which is as fast as 
Ihe rest of the program. 

Option 7 is a handy feature that shows 
your memory usage. Option 8 is the Save 
opiion, and Option 9 is for quitting. 

MasrerDIR's documentation is brief but 
contains everything you need to know. As 
I mentioned before, you really don't even 
need u. 

The price, $ 18, is fair for this software, 
considering all it can do. But there are a 
couple of things you should be aware that 
MasterDIR cannot do. First of all it won't 
display to the screen or print to your printer 
an entire collection of disks at one time, but 
rather just one disk at a time. I personally 
would prefer to be able to print a master 
directory of all of my disks to the printer. 
Secondly MasterDIR allows only a two- 
digit disk name to be entered. Since my 
disks already number in the hundreds, a 
three-digit name would be more helpful. 
And MasterDIR does not provide a way to 
delete a disk from the data file. About the 
only thing you can do in this case is read in 
a blank disk for that disk name. 

With these things considered, on a scale 
of 1 to 101 rate MasterDIR as an 8. 

(Sportsware, 1251 S. Reynolds Rd. Suite 4 14, 
Toledo, OH 43615, 419-389-1515; $18) 

— Robin Jackson 
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Label Designer 

Everything you'd want a label program to do and more! 
No other program lets you make great labels so easily. 



• Print Labels With Text And Graphics: use Label Designees 

fonts and pictures or any of Zebra's optional Picture & Font Disks. 

• Zebra Systems' Graphics User Interface: Pull down menus, 

scrolling-window file selectors, dialog boxes, radio Buttons, the works! 

• Standard Features: Click and drag picture placement, up to 4 pictures 
per label, 3 dilferenl picture sizes, powerful text editing with variety of type fonts 
and sizes, prints 1 -999 copies, templates, for standard & large address, file fold- 
er, disk, and cassette label sizes. 



•Mail Merge Option merges name and address or other text tile data 
lor printout onto your custom label templates with graphics and other text. 
Great tor club mailings, Christmas card lists, membership name tags, etc. 
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Merry Christinas from the Zebra family! 
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• Disk Directory Option pastes the names of your disk files onto the la- 
bel text editor screen for inclusion on your labels. 

• Serial Numbering Option for making sequentially numbered admis- 
sion tickets, product numbering, inventory labels, etc, 

« Hardware Requirements: 

CoCo II 84K, or CoCo 3, disk drive, mouse or joystick, compatible printer (com- 
patible with same printers as CGDP}. 

• Includes disk, laser typeset user's manual fl* Oyf OCT 
and sample quantities of different size labels. Price: «|JO~fc»t7*J 

We stock white and colored labels in a variety of address, disk, and cassette siz- 
es at competitive prices. 



Banners, Signs & Greeting Cards 
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The CoCo Graphics Designer Plus, produces 

beautiful greeting cafds, banners, and signs lor holidays, birth- 
days and other occasions. 

the CGDP features an easy-to-use point and click graphical 
interface with windows, scroll bars, radio buttons, and joystick 
or mouse control. Text can be used in up to 4 sizes and 16 
fonts per page. Picture, Font, and Border collections are in- 
cluded. Signs and cards can be previewed on screen 

Read the levruw in May 39 Rainbow. 
CGDP Disk & 64 page typset manual. 




$29,95 



Picture Selection Screen 

Requirements: CoCo II 64K or CoCo 
III, disk drive, RSDOS, joystick or 
mouse. Printers supported include: Ep- 
son RX/FX/LX, Gemini 10X, SG1Q, 
NX10. NX1000. DM P1 05/1 06/1 10/1 20/ 
130/132/200/400, Panasonic KXP1080 / 
90 /91/92, Prowriter, C.ltoh 8510, 
Okidata 92/93/182/133 & more. 



Label Designer & CGDP 



Optional Picture, 
Font, and Border disks. 

$14.95 each. 

Picture Disk #2 4 sets of 30 pictures ea., Sports. 
America, Party, Office, Total 120 pictures, 
Picture Disk #3 4 sets of 30 pictures ea. Animals, 
Nature, Religion, Travel, Total 120 pictures. 
Picture Disk #4 120 Holiday Pictures: Christmas, 
Chanukah, Thanksgiving, New Year's, Easter, Hallo- 
ween, etc. 

Font Disk A 10 Fonts: Western, Stencil, Banner, 
Shadow, Variety, Type, Stripes, Digital. Bold3. Object 
Font Disk B 10 Fonts: Arcade, Circle, Alien. Cube, 
Baroque, Deco, Block, Gray, Computer, Script 
Border Disk #1 Contains 176 High resolution bor- 
ders, great variety from simple to ornate. (The border 
disk is for use with the CGDP, but not with the Label 
Designer). 



Color Paint 

Color Paint is an easy to use drawing 
program for your CoCo 3, It uses the 
CoCo 3 High resolufion 320x200 video 
mode that allows you to create highly de- 
tailed artwork. 

All the standard features of classic 
paint programs: lines, rectanges, fiiled or 
round cornered rectangles, ovals, paint, 
spray-can, till pattern that can be edited, 
etc. Comes with 11 Hi-res fonts that you 
can print in any combination of styles: 
Color, Shadow, Outline, Bold, and Italics! 

The Deluxe version runs faster and 
uses the additional memory to implement 
really exciting features. 

Color Paint requires a Tandy mouse 
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or joystick and an inexpensive $9,95 
Tandy Hi-re interface (Catalog #: 26- 
3028). Prints COLOR using Tandy CGP- 
220 and OKIMATE-20 printers or in black 
and while on Tandy DMP 105/ 120/ 130/ 
200/ 400, EPSON MX/RX/FX/ printers & 
compatibles. 

Coior Paint (128K) $29.95 

Color Paint ( 51 2K)„. $29.95 



HARDWARE 

Color Computer Mouse (Quantities Limited)... 19.95 

Atari-To-CoCo Joystick Adaptor ....12.95 

WICO Trackball Controllers 29.95 

HDS Floppy Disk Controllers with RS ROM.. 59.95 

Disk Drive Case & Power Supply 35.00 

Wildcard Cartridge Emulator 109.95 

SOFTWARE 

Car Sign Designer 14.95 

Disk Utility 2. 1a 14.95 

Printer Font Generator 14.95 

Multi-Pak Crack 14.95 

Telepatch III , 14.95 

Tape/Disk Utility 14.95 



Ordering Instructions: All orders add $3.00 Shipping & Handling, UPS COD add $3.00. VISA/MC Accepted. PA residents add 

sales tax, Hours 9-5 Monday to Friday . We offer comprehensive sales and customer support for Zebra Systems Products. 

Paul & Tony's Stereo* 121 S. Burrowes Street* State College, PA 16801* (814) 237-2652 




The following products have recently been received by THE RAINBOW, examined 
by our magazine staff and issued the Rainbow Seal of Certification, your assurance 
that we have seen the product and have ascertained that it is what it purports to be. 



Big BASIC, an updated multitasking pro- 
grain for the CoCo 3, which lets users run 
BASIC programs in windows. Includes new 
demos. Danosoft. P.O. Box 124. Station A, 
Mississauga, Ontario, Canada L5A 2Z7. 
{416) 897-0121; $39.95 U.S. + $2.50 S/H. 

^DX-100L Diskette File, a transparent- 
lidded, locking diskette case that can hold 
up to 120 5%-inch floppies. Comes with di- 
viders and colored labels. CBUG, Inc., 
4102 N. Odell, Norridge. IL 60634, (312) 
456-8720; $12 plus $3 S/H. 

^Floppy Wallets, a disk storage and car- 
rying case that holds 24 SW-inch disks in its 
pockets. The wallet is constructed of anti- 
static nylon with velcro closures. It can 
"pyramid" itself to stand unsupported and 
also fold to fit into a purse or briefcase. 
Wallets are also available for 3!^-inch 
floppies. CBUG, Inc.. 4102 N. Odell, Nor- 
ridge, IL 60634. (312) 456-8720; $12.50 
plus $3 $/H 

^Keyboard Templates: Telewriter 64 
and Telewriter 128. typeset and laminated 
cardboard templates for the Telewriter-64 
and Telewriter- 128 word processors. The 
templates, which are placed on the key- 
hoard to fit around the keys, cover editor 
commands, disk commands, embedded 
format commands and more. Users can 
have an ar-a-glance reference for all 
Telewriter functions, without having to 
resort to the documentation. P&M Prod- 
ucts, 1003 Shaiimar Drive, High Point, NC 
27260, (919) 279-3091 ; $4.95 plus $2 S/H 
each for TeSewr iter-64 and Telewriter- 1 28 
templates. 

KJV on Disk #1. Genesis 1 through 29 
from the King James Version of the Bible 
on disk in ASCII files for the CoCo 1 . 2 and 
3. BDS Software, P.O. Box 485, Glenview, 
IT. 6007.5. (312) 998-1656: $3. 

^Phonics Fun. an educational program 
that helps children associate the sounds of 
letters with words in which they occur. It 
shows pictures in four categories (farm. 



circus, playground and magician) and asks 
children to press the first letter of the word 
the picture represents. For the CoCo 3, 
W.B.D. Software. Box 1077, Esierhazy, 
Saskatchewan. Canada SOA 0X0. (306) 
745-6527; $15 U.S.J18Cdn. introductory 
offer; $17 U.S., $20 Cdn. after Nov. 30. 

Space Pac, a machine-language action game 
collection, many of which are based on 
popular arcade titles. Includes Color Zap, 
Color Space Invaders, Planet Invasion, 
Spacewar, Space Race, Galax Attack, 
Android Attack, Whirlybird Attack, Space 
Sentry and Storm Arrow. For CoCos I, 2 
and 3 having at least 16K; a joystick is 
required on most games. Microcom Soft- 
ware, 2900 Monroe Ave., Rochester, NY 
14618, (800) 654-5244; $29.95 

Treasury Pack #1, a machine-language 
collection of CoCo Adventure and arcade 
game classics, many of which are based on 
popular arcade titles. The set includes Keys 
of the Wizard, Lunar Rover Patrol, Cubix, 
Module Man, Decathlon. Pengon and more. 
Some games support the Speech/Snund 
pack. Requirements range from 32K to 
64K. Comes on disk for the CoCo 1 , 2 and 
3; joystick required. Microcom Software, 
2900 Monroe Ave.. Rochester. NY 14618, 
(800) 654-5244; $29.95, 

Treasury Pack #2, a collection of ma- 
chine-language arcade games for CoCo 1 , 



2 and 3 disk systems, requiring at least 
32K. Includes Galagon, Lancer, Froggie. 
Miss Gobbler, Ice Castles, Devious and 
Madness and the Minotaur. Some of the 
games support the Speech/Sound pack. 
Joystick required. Microcom Software, 2900 
Monroe Ave., Rochester, NY 146/8, (800) 
654-5244; $29.95. 

Wizard's Castle, a text and graphics 
Adventure game with randomized "tricks, 
treasures and creatures of all types," The 
Adventurer can amass an arsenal of four 
weapons (crossbow, club, sword and axe) 
with which to face creatures such as drag- 
ons, trolls and cyclops. Features a game 
save command and support for the Speech/ 
Sound Cartridge. Requires 64K, Disk 
Extended basic and one disk drive. Micro- 
com Software .2900 Monroe Ave. .Roches- 
ter, NY 14618, (800) 654-5244; $19.95. 

Z'89, an update of the Zaxwn arcade game, 
written in 100-percent machine language 
by Steve Bjork for the CoCo 3. Players 
pilot their crafts through a hostile space 
fortress, scaling walls, dodging force fields 
and dogfighting with defense ships in an 
attempt to vanquish the robot overlord. 
Features enhanced graphics and digitized 
sound. For one or two players, joystick 
required. Game Point Software, P.O. Box 
6907. Burbatik, CA 91510. (818) 566 3571; 
$29.95. 



First product received from this company 



The Seal of Certification is open to all manufacturers of products for the Tandy 
Color Computer, regardless of whether they advertise in THE RAINBOW. 

By awarding a Seal, the magazine certifies the program daesexist — that we have 
examined it and have a sample copy — but this does not constitute any guarantee 
of satisfaction. As soon as possible, these hardware or software items will be 
forwarded to THE RAINBOW reviewers for evaluation. 

— Lauren Willoughby 
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GITIZER 



The Rascan Video Digitizer is a state- 
of-the-art image processing system 
designed to take advantage of your 
Color Computer 3's graphic capabilities. 

The Rascan Video Digitizer connects 
easily to any color or black & white video 
camera, video recorder or video disc 
player and captures images with 
precision accuracy. 

Why settle for a 256 x 256 image area 
when the Color Computer can display so 
much more? We asked that question 
ourselves. Our only answer was to provide 
an image area of 640 x 200 and 
320 x 200! Say good - bye to those 
useless lo -resolution images created by 
other digitizers on the market. 

Life is not simply black & white, that's why 
we added living color to our Digitizer, 
Now, through the use of advanced 
programming techniques, 51 2K Color 
Computer 3 owners can capture images 
from their video camera and display 
them in 4096 Super Hi -Resolution 
graphics! 



Capture images effortlessly, Simply select 
the image capture option and turn your 
Rascan unit on. Within seconds your 
image will be captured and displayed 
on your screen , Images can be fine tuned 
by use of the contrast and brightness 
knobs found on the Rascan unit. 

Rascan also features a professional 
pop-up menu system which will allow for 
easy paiette manipulation and color 
painting of captured images, 

The Rascan Video Digitizer comes 
complete with Rascan driver software, 
an easy to read manual sample graphic 
Images disk and print driver disk (support- 
ing most printers). Although no further 
graphic editors are necessary to produce 
quality images, Rascan images can be 
easily loaded into ColorMax and 
CoCo Max graphic editors. 

Whether your interests are in desk -top 
publishing, report generation or simply for 
fun, the Rascan Video Digitizer will 
provide you with images of near photo- 
graphic quality! 



FEATURES 


RASCAN 

YES NO 


DS 69b 
YES MO 


Support of MO x 200 1 6 Level Grey Images 


X 






x 


Support of MO x 200 d Level Grey Images 


X 






X 


Support of 320 x 200 16 Color Images 


X 






X 


Support of 4096 Hi -Res Color Graphics in 512Kmode 


X 






X 


Support of Multiple Image Buffers in 51 2 K mode 


X 






X 


Control of Contrast & Brightness via Control Knobs 
found on Digitizer 


X 






X 


Professional. Easy to Use Pop-Up Menu System 


X 






X 


Designed Exclusively to Take Advantage of the power 
of the Color Computer III 


X 






X 


Built in Histograpn Utility to Aid in Image Qualify 


X 






X 


Easy to use Paint and Palette editing, no need for additional 
Graphic edrtors 


X 






X 


1 5 Day Pull Money Back Guarantee 


X 






X 


kiterface through Joystick Ports 


X 






X 


Requires additional cost of YCableor Multi-Pak interface 




X 


X 
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NO RISK GUARANTEE ~~ 

If you are not completely satisfied 

with the performance of your 

Rascan Video Digitizer, you may 

return it, undamaged within fifteen 

days for the full refund of the 
purchase price plus shipping costs. 
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GAMEWOINT 



P.O. Box 6907, Burbank, CA 91510-6907 
(818)843-3405 • BBS: (848) 772-8890 




DISCOVER 




Personal checks, money orders, and American C.O.D, orders accepted. 
Include $3.00 for SIH. $2.50 extra for C.O.D. orders. (Gal. res. add 6.5% tax.) 
ATTENTkON PROGRAMMERS; Game Point Software is iooking for talented 
writers. Top royalties guaranteed. 
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More on Maxlc 
and OS-9 Hits the Mac 



Last month I presented the first of a 
three-part tutorial series exploring 
Robert Moody's Maxlc. This line- 
by-line lour ot Maxlc helps you to master a 
few of the techniques needed to write Multi- 
VW-based application programs in BASJC09. 
To save typing and to provide you with a 
chance to run Maxlc, I published the com- 
plete program in the August edition of 
RAINBOW on DISK. It is also available in the 
Rainbow Programs section of Delphi's OS- 
9 Online data library. 

Eleven Parts in October 

Modular programming techniques help 
break projects into small parts you can 
tackle one at a time. OS-9 in general, and 
basicw in particular, are natural tools when 
modular programming is required. Maxlc, 
a Mu/ti-Viw-based icon editor, demands a 
modular approach. It contains 27 modules. 
Last month there were seven source code 
listings for modules named maxic, main, 
menup, setbuf, clearnuf, files and 
showdir. 

This month, I tackle 11: tandy, dirfiies, 
Cretans, writefilp, getname, getdir, 
winset, raouser, loadicon, gecfils and 
getkey. As 1 made the selection, I tried to 



Dale L. Puckett, a freelance writer and 
programmer, serves as director-at-large 
of the OS-9 Users Group and is a member 
of the Computer Press Association. His 
username 'on Delphi is IMLEP: on packet- 
radio, KOHYD @ N4QQ; on GEnie, 
D.PUCKETT2; and On CIS, 71446.736. 



By Dale L. Puckett 
Rainbow Contributing Editor 

pick individual modules that run together. 
dirf iles, the program that drives one of 
Maxle's three menus, was the driving force 
behind my selection. This procedure runs 

getans, writsf ile, getname, getdir and 

winset directly. These modules in turn run 
the other modules, which are published this 
month. The modules geticon, saveicon, 
readicon, showicon, writeicon, editor, 
updatbuf, errmsg and loadbar must wait 

until November. 

The Familiar Tandy Menu 

Maxlc is structured much like MVShell 
and DoMenu. You can run any of the stand- 
ard Tandy desk accessories from within 
Maxlc at any time. Maxlc also gives you 
access to a standard file menu similar to 
those used in mo&x Multi-Vue applications. 
When application writers follow established 
standards like this, they make life easy for 
the person running their programs. If every 
programmer uses a similar menu to open, 
close, abandon, read or write files, the user 
only needs to learn these operations one 
time. Thus after you have learned to start 
one program, you've learned to start every 
program. 

Tandy Desk Accessories Revisited 

The first listing this month is a proce- 
dure named tandy. It exercises the menu 
that delivers the standard Tandy desk ac 
cessories to your Color Computer screen. 
As you review this procedure, notice that it 
is almost identical to the tandy menu used 
within MVShell, DoMenu and Locate. When 
1 published Locate in July. I suggested 



comparing its tandy menu routines lo Lhose 
in DoMetut. I also detailed those changes to 
help you learn how to add, remove or 
otherwise change the actions available under 
the menu. Feel free to review that article 
and customize Moody's tandy menu to 
meet your own needs. 

Notice that Moody passes all informa- 
tion required by the procedure tandy in the 
three data structures defined last month 
when the procedure main was listed. To 
recap, the structure ms contains data of the 
type Micsys, which contains (in order). 
bname, a directory name stored in a 32-byte 
string; tname, an array of 48 icon names 
stored in 32-byte long strings; and byt, a 
144-bytc array used to hold a single icon's 
bit map. 

These iarger fields are followed imme- 
diately by eight single-byte fields and two 
integer fields. The byte-wide fields hold 
several numbers; group, buffer, a counter- 
named number, menu-select, menu, error, 
color and a scroll count. The horizontal and 
vertical position of the Color Computer 
mouse are stored in the two integer fields. 
The structures dr and ic, both of type mic, 
are not used in the procedure tandy even 
though they are passed when it runs. 

Moody starts the procedure with code 
that reserves space in memory for the param- 
eters above and the variables ?Name and ok. 
He then moves OS-9's cursor to the upper 
left corner of the window in Line $008 E. 
When this is done, he turns off the graphics 
cursor, turns off proportional spacing, and 
tells OS-9 to use the font found in Group 
200, Buffer 2. 
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The line at $OODA decides what you 
want and branches to the proper line to run 
the desk accessor) 1 program you requested 
with the mouse pointer and button. If the 
menu number field MS.MentJunu of the 
parameters, is 2 after the mouse button is 
pushed, for example, the program knows 
you want to run the tandy clock program. 
This decision made, it branches directly to 
Line 2, Location $014B, which actually 
runs an OS-9 program named gciock. 

The first step in the routine begins at 
Line 2. opening tin overlay window and 
saving the information on the window 
underneath it. The upper left corner of the 
overlay window is located one character 
space to the right of the left edge and two 
characters down from the top of the win- 
dow. The overlay window is 20 characters 
wide and 15 rows deep. Its foreground is 
black (2). and its background is white (0). 

After Moody creates the overlay win- 
dow, he runs the procedure winset to tell 
OS-9 he would like a Type 5 window. This 
is a plain box window wt .pbo* in the osSdef & 
file and the standard graphics library used 
by the C compiler. After the window is 
drawn on the screen. Moody turns on OS- 
9*S Echo function using tmode and then 
uses the BAS1C09 command she: l to run the 
tandy program gclock. 

When you close gclock by clicking the 
mouse button with the pointer over the go- 
away box in the upper left comer of the 
window, the procedure tandy branches to 
Line 20, where Moody closes the overlay 
window he created earlier, turns off the 
Echo function, turns the proportional spac- 
ing back on, changes to the font stored in 
Group 200, Buffer 1, and turns the cursor 
off. The procedure tandy handles each of 
the other menu items in the same way. 
That's it for Listing I. 

The dirf ilea Directory 

Most of Mctxk'a work is initiated from 
the menu &tr.f ilea. Notice that it starts out 
in a manner similar to the procedure tandy. 
It reserves space in memory for the parame- 
ters it will receive from the procedure ma in. 
reserves space in memory for its variables 
TNeme and ok, and then branches to a rou- 
tine determined by the menu item number 
passed to it in the MenNum field of the data 
structure ms — MS.MenNum. Menu choices 
include Write, Rename, Delete, CHI, Load 
Dir, CHD. CHX and Print. Notice there are 
exactly eight choices on the menu and 
exactly eight possible branches in the on 
nis.mennum got-; routine at S008E, There 



really is a method behind this madness. 

If you push the mouse button while the 
pointer is over Write in the dir a ilea menu, 
the control of the procedure is transferred 
to Line 1, which is the beginning of the 
code needed to write or save an icon file to 
disk, Here dirfiles looks for the name of 
the selected icon by checking the name 
field of the parameter dr — dr. name. If this 
field is empty, you have not selected an 
icon to save to a file. If it contains a name, 

dirfiles runs the procedure getans to 

give you a chance to change your mind. 

Moody passes three parameters to getans 
— the entire data structure ms, a Boolean 
named ok and a string. The string is made 
up of the word write followed by the name 
of the icon you have selected, getans opens 
an overlay window and draws a dialog box 
in which you are asked if you are sure you 
want to write the icon file. 

The procedure getans lets you click the 
mouse button over the word Yes printed on 
the screen or press the letter Y, If you click 
Yes or press Y, getans sets the value of the 

Boolean parameter ok to True and returns 

you to the dir- 

files. If you press; 
anything else or 
click the mouse 
button with the 
pointer located 
anywhere else in the 
dialog box, ok is 
false and the file is 
not written to disk. 
After running 
getanSj dirfiles 
runs the procedure 
writefile, which 
actually saves the 
icon todisk. Notice 
that before calling 
writefile. Moody 
sets the value of 

TName tO "" — a 

null or empty string. 
The value of TName 
and the field 
dr. name determine 
where the image of 
the icon is sent. If 
TName is a null and 

DR.name exists, the 
icon is written to a 
disk file. Otherwise 
if DR. name is empty 
or a null string, 
dirfiles knows 

that you want to 



print the icon, and the icon is written to the 
device /p. 

When the routine that started at Line 1 
ends, it transfers control to Line 20 where 
dirfiles clears the ic. select field, erases 
any data in the field dr. name, then refreshes 
the visual directory display by running the 
procedure showdir. The action code for 
each of the directory items exits in exactly 
the same manner. 

In Line 2 dirfiles has determined that 
you want to rename an icon file. The first 
thing it must do is find out what you would 
like to name the icon file. There's no better 
way to find out something than by asking. 
And that's exactly what the call to the 
procedure getname does. 

getname follows a sequence very similar 
to that followed by getans. It creates an 
overlay window, draws a dialog box. 
prompts you for the file name by printing 
"Filename" in that box, and waits foryou to 
type in the name. When you do, it returns 
the name to dirfiles in the parameter 
filename, dirfiles reads this parameter 

into a string variable named TName. 
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ULTRA -QUAD 

FOUR PROGRAMS DESIGNED TO GIVE YOU A DATABASE AND 
TO GET THE MOST OUT OF THE DATABASE AND YOUR WOHD 
PROCESSOR PROGRAM. 

ALL FOUR PROGRAMS ONLY 559,95 

ULTRA-BASE 

THE ULTIMATE DATABASE FOR THE COCO 1, 3, OR 3 WITH 
AT LEAST 64K. See Rainbow Review - January 1989 
Sold separately for $24.95 

ULTRA- MERGE 

WHY SETTLE FOR SIMPLE WORD PROCESSING WHEN SOU CAN 
PERSONALIZE LETTERS, FORMS, ETC. USING YOUR 
FAVORITE WORD PROCESSOR AND DATABASE FILES FROM 
ULTRABASE. See Rainbow Review - July 1989 
Sold separately £or S14.95 

ULTRA-CAT 

YOU KNOW YOU HAVE A PROGRAM ON DISK BUT CAN'T FIND 
IT. CONVERT DISK DIRECTORIES TO ULTRABASE FILES. 
Sold separately for §14,95 

ULTRA-TEXT 

READ YOUR DATABASE FILES INTO YOUR WORD PROCESSOR 

PROGRAM. CONVERTS ULTRABASE FILES INTO ASCII PILES. 

Sold separately foe S14.95 



ADD 52. OQ S/H 
$4.00 FOR U.P.S. 
$3.00 FOR C.O.D. 
PA RESIDENTS ADD 
6* SALES TAX 



W> oxG63 
3ftiincifiOuLH,2?sa 10248 
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After you have supplied a new name for 
the icon file, air files runs the procedure 
getans. This time it passes the entire data 
structure ms, the Boolean variable ok, and a 
rename string. Again you have a chance to 
say yes or no or click the appropriate an- 
swer with the mouse button, 



Notice that getans 
does two different 
jobs by simply chang- 
ing the parameters 
passed to it. This is a 
perfect example of 
the power and 
functionality you can 
achieve by passing 
parameters between 
OS-9 procedures. 



Notice that getsns has already been 
used to do two different jobs by simply 
changing the parameters passed tn it. This 
IS a perfect example of the power and 
functionality you can achieve by passing 
parameters between OS-9 procedures. 

Assuming you said yes, dirfiies goes 
on to rename your icon file, using the 
RASIC09 shell command to run the OS-9 
rename utility. After it has done this, it must 
run the procedure showdir again to update 
the visual directory display on Maxle's 
screen. When you follow the code that 
activates the other dirfiies menu item 
choices, you see that each routine is struc- 
tured in an identical manner. 

Every Mouse Should Have a RatPack 

The dual functionality of the procedure 
getans is made possible by its call to the 
procedure g-etkey. In get key. Moody que- 
ries both the mouse and the keyboard. He 
uses the iscatstt call to determine the 
location of the mouse and the packed ba- 
sics I -code module inkey to capture any 
key that happens to be pressed. 

Moody defines his ratpack as an array 
of 32 bytes and remembers the numerical 
location of each piece of information stored 
in the array, I prefer to define a BASlCWdata 
type that tells me mnemonically where my 
data is located. For example, he must re- 
member that die value of the mouse button 
— up or down — is stored in the ninth byte 
from the beginning of the array, and the 



Listing 1: tandy 



PROCEDURE 
001 B 
0064 

m$n 

0K7A 

008 1 

023 B 

00BE ( 
00DA 
00ED 
0104 

sin 

012B 

014 3 

0155 

01CD 

019B 

019D 1 

01A1 

01C9 

01E4 

01EC 

01F5 

01F9 2 

0204 

0336 

B22E 

023C 

024 6 
024A 3 
0253 
027A 
0262 
0290 
02 98 
029C 4 
02A9 
02CB 
02D3 
02DE 
02E2 5 
02EF 
0311 
0319 
0327 
0331 
0335 6 
033F 
0361 
0369 
0377 
0360 
0384 7 
038E 
03B0 
03CC 
03D4 
03E2 
03£F 
03F1 
040A 
0429 
0435 
■0439 
0446 
0448 
044C 
0450 a 
045B 
047D 
0435 
0493 
04A0 
04B3 
04C5 
04E7 
04 F0 9 
04FF 20 
050F 
0513 30 
0520 
052D 
053A 35 
054C 
055F 
0571 
057F 



TANDY 

TYPE Kic-narae; STRING; select ;BYTE," xpos, ypos; INTEGER 

TYPE MieSys-Dnome, Iname(48) :STRING; ByL (144) , Grpld, BufNQ, number 

, MenSel,MenNum,ErrNum, color, scount :BYTE; horiz, vert ; INTEGER 
PARAM MS;MicSy5 
PARAM DR, IC:Mic 
DIM TName: STRING 
DIM OK: BOOLEAN 
ON ERROR GOTO 30 
* set cursor st top to help keep window rollup when coming out of ow window 
RUH gfx2 l"curxy",S5,(JI 

I* get rid of the arrow 
RUN gfx2 [ n geset",0, 0) 
RUN gf>;2 ("propsw", "off ") 

1" use Siinall 6x8 letters 
RUN gfx2<"ront",200, 2) 

(* qoto what we selected 
ON MS.MenNum GOTO 1,2,3,4,5,6,7,8,9 
END 

j* calc 
RUN gfx2 ("owsef',1,2,4,30, 17,2,0) 

(■* set window for plane box 
RUN winset <5> 
SHELL "gc£lc" 
GOTO 20 

(* clock 

RUN gf K 2 ("onset", 1 , 2, 5, 20, 15, 2 , 0) 
RUN winset (5) 
SHF.LL "tmode echo" 
SHKLL "gr-lock" 
GOTO 20 

[ T calendar 

RUN gfx2("owset", 1, 0,0, 40, 24, 1 , 0) 
RUN winset (5) 
SHELL "cmode echo" 
SHELL "qcal" 
GOTO 20 

(* control 

RUN gf k2 ("owset", 1, 1 , 1, 20, 20, 2,0) 
RUN winset (5) 
SHELL "control" 
GOTO 20 

C* printer 

RUN gfx2("owset", 1,1, 1,20,20,2,0) 
RUN winset (5) 
SHELL "tmode echo" 
SHELL "gprint" 
GOTO 20 

(* port 

RUN gfx2( "owset", 1,1, 1,20,21,2,0) 
RUN winset (5) 
SHELL "tmode echo" 
SHELL "gport" 
GOTO 20 

r help 
RUN qtxl ("owset", 1.1,5, 38, 16, 1,0) 

(* set window for double box 

RUN winset (4) 

SHELL "tmode echo" 

RUN g£x2<"cutron") 

LOOP 

PRINT "Press (ENTER] to exit" 
INPUT "What OS-9 Subject Is)? ",TName 
EXITIF THame-"" THEN 
ENDEXIT 

SHELL "help "+TName 
PRINT 
ENDLOOP 
GOTO 20 

(* she! I 

RUN gtx2<"owset",I, 1,5, 38,16,1,0) 
RUN winset (4) 
SHELL "tmode echo" 
RUN gfx2l"curon") 
RUN gfx2 t"curxy",0,0) 
RUN gfx2["font",200,2) 

PRINT "press [CTRLl and [ESC] to exit" 
SHELL "shell" 

(« clipboard 
RUN gfx2 ("owend") 
GOTO 35 

MS.ErrNum;=EKR 
RUN gfx2 t"0«end") 
RU"N errmsg(MS.ErrNum> 
SHELL "tmode -echo" 
RUN gfx2 ("prop3w", "on") 
RUN gfK2 ("font", 200, 1) 
RUN gfx2("curoff") 
END 
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horizontal location is made up of both the 
25th and 26th bytes in the array. I prefer the 
code: 

Button :=msret . cbsa 
hori z ; =fttsret . acx 

As a bonus here's a review of the BA- 
SIC09 data type that defines the packet of 
information returned from the mouse by 

i$Getstt. 

TYPE rodent=valid, actv, totm; BYTE,- 
rsrvO: INTEGER; tttorBVTE; tsst: IN- 
TEGER; cbsa, cbsb, ccta, cctb,ttsa, 
ttsb, tlsa, tlsb : BVTE; rsrvl, bdx, bdy : 



INTEGER; stat, res: BYTE? acx F acy,wrx t 
wry: integer 

After you have defined the data type, 
you can then reserve memory for it by using 
the BASIC09 dim statement: 

DIN RatPack: rodent 

If you click the mouse button while 
get key is running. Moody computes the 
horizontal and vertical position of the mouse 
pointer and passes it back to the calling 
procedure in the parameters horiz and vert. 
He also sets the value of the one-byte string 
key to a space. This lets him escape from 




Listing 2: dirfiies 



PROCEDURE DIRFILES 

0002 TYPE Mi c=name: STRING; select ;BYTE; spas, ypoa; INTE3ER 

001B TYPE MicSys-Dname, Inane (48) ; STRING; Byt (144) , GrpId,Buf No, number 

, MenSel,MeriNum,ErrNum, color, scount :BYTE; horiE, vert : INTEGER 

0064 PARAN KS:MicSys 

006D PARAM DR, IC:Mic 

007A DIM THama i STRING 

0081 DIM OK: BOOLEAN 

am 8 ON ERROR GOTO 30 

00SE (* goto selected number 

00A5 ON MS.MenNuifi GOTO 1,2, 3, 4, 5, S, 7, 8 

00CF END 

00P1 1 (* write dirfile 

03E4 (* end if nothing selected 

00FE IF DR.nameO" " THEN 

010D (* else do we reiiy want. to 

0128 RUN getans(MS,OK, "Write "+DR,name) 

0147 (* if we do left do it 

015E IF OK THEN 

0167 t* set temp name to nothing 

0162 TWaur* ;-"" 

0169 (* go make a file 

019A RUN writef ile (MS.Dnaro*,DR,nanie, TName) 

01B4 ECTOIF 

01&6 ENPIF 

01B6 GOTO 20 

01BC 2 (* rename dirfile 

01D0 IF DR.nameo"" THEN 

01DF (* get new name 

01EE RUN getname (TName) 

01E8 (* is there a new name 

020E IF TName="" THEN 

021A { T no so forget about it 

02 32 END 

02 34 ELSE 

0238 (* yes so is it correct 

024F RUN getans(MS,OK, "ReName " + DR.rLame+" to "fTName) 

027A IF OK THEN 

0283 I* it is correct so let's give it a new name 

02AF SHELL "rename "+MS.Dnaine+"/"+DR.name + " "+TNarae 

02D4 (* and change Che name in the buffer number 

552FF MS. Iname (DR. select )=TName 

0311 DR.name:=TName 

031D (* we do the directory window 

033A GOSUB 40 

03 3E END IF 

0340 END IF 

0342 ENDIF 

0344 GOTO 20 

0348 3 (* delete dirfile 

035C IF DR.nameO"" THEM 

0366 RUN getans (MS, OK, "Delete "+DR.namel 

038B IF OK THEN 

0394 SHELL "del "+MS . Dname+" / "+DR. name 

03AE (* rename it to XXXX so we know it's not there 

03DC MS, Inartie (DR. Select) : -"icon . XXXX" 

03F6 (* now show it on the screen 

0412 GOSUB 40 
041« ENDir 

0413 ENDIF 
041 A GOTO 20 
04 IE 4 |* chi 

0427* RUN gfx2 ("owset", 1, 5, 10,30,7,2,0) 

0449 RUN winaet(4) 



TANDY COMPUTERS 

Tandy 1 000-HX 256K 5 1 1 A," S3S.00 

Tandy 1000-SL 384K 5 1/4" 675.00 

Tandy 1000 TL/2 640K 3 1/2" 955.00 

landy 1400FD Portable 1210.00 

Tandy 1400HD Portable 1975.00 

Tandy 3000-NL S12K 3 1/2" 127500 

Tandy 4020-LX 1 Meg 3 1/2" 2950.00 

Tandy 4025 LX 2 Meg 3 1/2" 3650.00 

Tandy 4000-SX 1 Meg 3 1/2" 2075.00 

Tandy 5000MC 2 Meg 1 Drive 3825.00 

Tandy 5000MC 2 Meg 40 Meg 4955,00 

Tandy 5000MC 2 Meg 84 Meg 5395.00 

Tandy 102 24K 430 00 

Tandy Col r 3 1 28K 1 55 .00 

MONITORS & CARDS 

VM-5 Monochrome Green 1 15.00 

CM-5 Color RGB 220.00 

CM-11 Color RGB 315.00 

Magnavox 9CM053 Color EGA 395.00 

Packard Bell Monochrome TTL 89.00 

Amdek 410 Monochrome 155,00 

Amdek 732 VGA Color Analog 42500 

NEC 2A 1 4" Super VGA Color 545.00 

NEC 3D 14" Digital Monitor 710.00 

Tandy EGA Card 205.00 

Paradise Basic EGA Card 195.00 

Video 7 Vega/Deluxe 239.00 

DISK DRIVES 

5 1/4" External Drive 100QHX 180.00 

Tandy 20 Meg Hardcard 450.00 

30 Meg Hardcard 395.00 

5 1/4" External for Tandy 1400 21 5.00 

Seagate 20 Meg Drive & Card 269.00 

MODEMS 

Prac. Peripherals 1200B Internal 75.00 
Prac Peripherals 2400B Internal 175.00 

Packard Dell £4000 Internal 140.00 

PRINTERS 

DMP-107 Dot-Matrix 230.00 

DMP-1 33 Dot-Matrix 325.00 

DMP-300 Dot-Matrix 505.00 

Epson LX-810 Dot-Matrix 209.00 

Epson FX-850 Dot-Matrix 375.00 

Epson LQ-510 Dot-Matrix 365.00 

Epson LG-850 Dot-Matrix 585,00 

Epson FX-105O Dot-Matrix 495.00 

Panaonic KX-P1 180 Dot-Matrix 205.00 
Panasonic KX-n 191 Dot-Matrix 260 00 
Panasonic KX-P1 1 24 Dot-Matrix 369,00 



A)l prices and otters may be changed or wiShdrnwn wirhiiu i sun ilij AjJwfi 
tiua p*ic*5 are caan fkicbj C Q D ace-ewe* **1 ZVa Wrnimurn charge 
i 10 OO.i WG. Visa iicld B* All non drisctiva itams inquire mum 
mea'chandrM aLthoriflalpan Can lur RMfl Nij^nb*!' t*icxe iriupmng 
p«rnrflry ffrsubjuci iu iwoauci avaitaDilny Afld (>%%for iH0piea irtia 
hanflliflg. SS DO minimtrm charge 

TM Ragi^jej-ed Trademark of Tandy. Epson, and IBM 

Monday Iforu Friday 9am - 5pm EST. 



3DPD ■*■ 

124 South Main Street, Perry, Ml 48872 

CALL 1-517-625-4161 or TOLL-FREE 

1-800-248-3823 
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the repeat . . . until control structure 
that waits forever if you don't press a key. 

The routine mouser is almost identical to 
the getkey routine except it does not look 
for a key press from the keyboard. It simply 
goes out, looks at the mouse, and returns 
the horizontal and vertical position of the 
mouse and the status of the button. 

If you have typed the gfx3 procedure 
from the August 1988 column or down- 
loaded it from Delphi's OS-9 Online SIG, 
you will find it much easier to type: 

run gf x3 (Stdm, "gs .mous", addr 
(RatPack) ) 

1 have merged the gf x3 1-eode module in 
a file with the 91x2 module. This means all 
gf x3 functions are always available to my 
basico9 programs. 

writefile Uses Parameters Too 

I mentioned in the procedure dirfiies 
how the routines write a file to a disk or 
print a file. Both use the procedure write- 
file. This too is made possible by the 
parameter-passing capability of 6ASIC09. 

When writefile is called, it puts upthe 
hourglass cursor to tell you it is busy with 
the command "tun gfx2 rgcset",202,4). 
Then it opens a path to the icon file you 
want to write and reads its data into the 1 44- 
byte array byt. 

Next it checks to see if the filename you 
have requested is Vp". If so, it opens a path 
to the printer and sends out the name of the 
icon. If not. it simply opens a path to a 
filename with the same name as the icon 
you want to write. It then prints that army, 
two bytes at a time in Hex format, to the 
path just opened. If a file for the icon does 
nor already exist, writefile creates a file 
and writes the array to it. 

Grand Opening 

If you're looking for the magic that lets 
Moody read the names of the files in his 



0451 
0464 
04 80 
04 -■: 

S34JUT 

04 £7 
04FB 
0523 
0532 
0550 
0564 

05 IF 
058E 
05A1 

asaE 

05CS 

05DI 
05EA 
05F6 
0611 
0S2F 
0638 
064E 
0652 
0654 
0SS6 
06SA 
0668 
0684 
068F 
6A4 
6AF 
0SC8 
06CC 

0601:' 
06E8 
06FB 
071D 
0725 
0736 
07 4 C 
C7 6.3 
07 6A 
077D 
0791 

07 5F 
07B2 
07C1 
07D4 
07E1 
07ED 
37F2 
07F4 
07FS 
0801 
0B14 
0336 
083E 
0851 
0865 
0S7F 
0SB6 

08 AD 



MS, 



REIN gfx2 [ ,, curxy ,, ,0, 0) 

(* the current icon director 

PRINT "current Icon dir "s MS.Dname 

RUN gfx2("eurxy",a,2) 

(' turn off the propsw so we can backup with Out overlap 
BUN gfx2 ("propsw", "off ") 

t* and turn on the echo so we can see it 
SHELL " tifiode echo" 

{* now we can get the new path 

INJUT "change to > ",TName 

(* let's we set cvecy thing 
£hs:.ll "tmode -echo" 
RUN gfx2C"prop E w", "on") 
run gfx2("owend") 

(* was there a new path 

IF TNsmeo"" THEN 

(' yes sc let "3 change it 
MS . DfiatnenTNann? 
(* do we want to laod it in 
RUN gatans (MS, OK, "Land "+MS.Dname) 
IF OK THEN 

{"■ yes so goto loaddir 
GOTO 5 
END IF 
ENDIF 
GOTO 20 

(* load dir 

(* start at the first buffer 
MS .number :—Z 

i* and the first page 
scount :-l 

clear the screen first 
GOSUB 40 

RUN getdir (MS,DR> 
GOTO 20 

<» chd 

RUN gfx2("gcset",0,i3! 
HUN gi»2 |"owset", 1,5,10, 30,7,2,0) 
RU?J winset (4) 
RUN gfx2 ("curxy", 0,0) 
PRINT "current wk.dir "; 

I* get the current path 

SHELL "pwd" 

SUN gf.x2 ("curxy",0, 2) 

RUN gfx2 ("props*", "off"! 

SHELL "traode echo" 

INPUT "change to >*\ TName 

3 HELL "tmode -echo" 

RUN gfx2 ("propsw", "on" > 

HUN gfx2 ("owend") 

IF TNatneO"" THEN 

CHD TName 
ENDIF 
GOTO 20 

(* chx 

RUN gfx2 ( H jcset",B,») 
RUN gfx2 ("onset", 1,5, 10, 30, 7, 2,0) 
RUN uinset (4) 
RUN gfx2 ("curxy",0, 0) 
PRINT "current ex. dir "; 

C get the current ex path 
SHELL "pxti." 
RUN gfx?{"Gurxy" i 0,2] 
RUN gfx2 ( "propsw", "orf") 
SHELL "tmode echo" 



NEW: Low Power 51 2K CoCo3 Ram Expansion Board {call for current $) 



SDISK - Standard disk driver module replacement allows full use 
of 40 or 80 track double sided drives with OS-9 Level I. Full compat- 
ibility with CoCo 35 track format and access all other OS 9 non 
CoCo formats. Easy installation, $29.95 

SDISK+BOOTFIX - As above plus boot directly from a double sid- 
ed diskette.$35.95 LEVEL 1 QQ9 0N| _ Y 



LEVEL 2 OS-9 ONLY 
SDISK3 - Level II version of SDISK driver. Same features as level 
I (except bootfix not required to boot from double sided). $29.95 
MSF - MS-DOS file manager, Complete file transfer capahiitites 
REQUIRES SDISK3 $45.00 or with SDISK3 for $65.00 



LI UTILITY PAK 40 utilities including MACGEN $49.95 

L2 UTILITY PAK Level 2 Ram Disk and Printerr driver plus 10 

more $39.95 BOTH L1 + L2 Paks for $75,00 

PC-XFER File transfer utilities read/write/format MS-DOS format 



disks under COCO OS-9, REQUIRES SDISK or SDISK3. $45.00 
FORTH09 A FORTH-83 Standard implementation specially laylored 
for OS-9. Includes complete forth 6809 assembler and more. Pro- 
grams written in forth can instantly be saved as compact executable 
machine language modules, Supplied with complete printed docu- 
mentation. $150.00 (+ $3 S&H) , 
SEND S.A.S.E FOR LATEST CATALOG 

All diskettes are m CoCo OS-9 format unless otherwise requested; other OS-9 
formats can be supplied for $2.00 additional charge, All orders must be prepaid 
or COD, VISA/MC accepted, add $2 S&H for first software item, + .50 for each 
additional item, additional charge for COD. 
D. P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, OR 97223 (503) 244-8152 

[Vou may best reach us between SAM-NOON Pacific Time. Mon.-Fn.) 
OS-9 is a trademark of Microware and Motorola Inc., MS-DOS is a trademark ot Microsoft. 
Inc.. FORTH09 is a trademark ol D. P Johnson 
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&8BB 
0BCE 
08 DD 
0BF0 
0SFD 
0909 
0&0E 

0911 3 

asiF 

8921 

0&4D 

0956 

097S 

097E 

099D 

09B7 

03B9 

09BB 20 

(Z9CE 

09D9 

09E4 

09F3 

09F5 30 

0A22 

0A15 

0A22 

BA2D 

0A38 

0A3A 

0A51 40 

0A64 

0A7D 

0A8A 

0AS9 



INPUT "change to >",TName 
SHELL "tmode -echo" 
RUN gfx2 ("propsw", "on") 
RUN gfx2("owend") 
IF TNameo"" THEN 

CHX TName 
ENDIF 
GOTO 2« 
I* print 
IF DR. name-: V" THEM 

RUN getar>s(MS,OK, "Print »+DR.name) 

IF OK THEN 

(* set the temp name to printer 
TNaTne:-"/p" 

!* and send it to the wrrtefile 
RUN writef ile (MS.Dname, DH.iidme, ': . . 
ENDIF 
ENDIF 

(' exit dirfiles 
IC .select i-0 
DE.name:="" 
RUN showdit |M3,DR) 
END 

BS.ErrMum:-fiRR 
(■ report the error 
RUN errmsg (MS.ErrNum) 
IC. select :-0 
DR.name:="" 
END 

(* clear the dir window 
run gfx2 (" color", 0) 
RUM gf«S ("bar" ,230, 20, 636, 188) 
(* and see it 
RUM showdir(MS,DR) 
RETURN 



Listing 


i: 


getans 


PROCEDURE 


(fetalis 


0000 




TYPE Mic5ys=DnaTne, Iname (-48) : STRING; Byt (144 I , Grpld, BufNo, number 
,MenSel, MefiHum, EtrNmn, color, scount sBYTEf her iz, vert : INTEGER 


004 9 




faram MS:HicSya 


0052 




PARAM OK: BOOLEAN 


0059 




PARAM Me s 3 Age: STRING 


0060 




DIM k.ey:£TRING[l] 


006C 




OH ERROR GOTO 10 


007 2 




[* use arrow pointer 


0086 




RUN gt*2 ("go Set", 202,1) 


0099 




(* set OK to no 


00AB 




OK : =FALSE 


00AE. 




RUN gfx2 ("owset", 1,5, 10, 32,8,1,3) 


00D0 




RTO w inset <4) 


00D& 




£* try to relive some garbag if any 


00FB 




PRINT \ PRINT 


emrv 




run gfx2 ("curxy", 1.0) 


0112 




print MessAge 


0117 




I* turn off propsw to write yes and no 


01 3D 




RUN gfx2 ("propsw", "off") 


0151 




RUN gfx2("curxy",8,4) 


0164 




RUN gfx2 ("propsw", "off ") 



icon directory and capture their bit map in 
a buffer thai can be displayed in an OS-9 
window, look no further than the listing of 
the procedure geLdir. 

Here Moody displays the hourglass cursor 
again to show you Maxfc is busy before 
going to work. Then he opens up the icon 
directory you have selected, If you haven't 
selected one. he opens up the directory 
GMds/icons, Notice that he uses the 
"read+dir" attribute in his open statement 
to tell BASiCOv he wants to open a directory 
for resd. 

After he has opened the directory for 
read, he reads in each filename one charac- 
ter at a time. After he has gathered a com- 
plete filename, Moody writes its name into 
an array in the data structure tis in the field 
named MS, lname(MS. Number). 

After an end-of-file signal lets him know 
he has reached the end of the icon directory, 
Moody opens each icon file and reads it. He 
then writes the data into an OS-9 buffer 
using the "gpload" gf*2 call. Each icon 
has its own buffer number. That number is 
equal to its file number, which is counted 
while Moody is reading the directory. 

There are several other interesting tid- 
bits within the 1 1 Maxlc procedures listed 
this month. Learn and enjoy. I'll wrap up 
the series in November, 

WizPro Revisited 

OS-9 Users Group MOTD editor Bill 
Brady has upgraded his outstanding share- 
ware communications program WizPro 
again. You'll find the new code in Delphi's 
OS-9 Online SIG and on CompuServe and 
GEnie as well. 

One of the interesting features of this 
version is the addition of a new utility 
program called wizgen. This program makes 
it much easier for you to create a new boot 
file. You can use it to modify the os9boot 
file on any bootable disk. It creates a new 
file called wizproboot, then links to it. 
There 's only one caveal with this approach 
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if you're footing for good, professional quality 
music programs, don't fook any further! x 



Lyra, the full featured music editing program. Enter and hear music 
you never thought you could play! Super easy to use (Screen 
pictured at left). Print program included. Only $59.95 

Lyra Lybrary, a full featured collection of music for Lyra. 17 disks 

(over 350 titles) for $125 or $14.95 per disk. 

The Lyra Companion, a 100 page book filled with everything you 

wanted to know about Lyra. Just $9,95 

CoCo MIDI 3, the pro quality MIDI sequencer that lets you record 

from your MIDI synth and edit the music. $150.00 complete 



October 1989 



THE RAINBOW 



115 



— you must ensure that you have plenty of 
free disk space on the disk because OS-9 
must always have its hnotfile stored in 
contiguous sectors. The exciting thing about 
wizgen is the fact that it can be easily 
modified and turned into a program similar 
to the popular Font/Da mover on Macin- 
tosh computers. Of course a program like 
this would compete with Conf ig. Or would 
there be any competition? 

Steve Goldberg's Find is Fast 

While I was busy writing the BASK09 
program Find, Steve Goldberg was hack- 
ing away with assembly code. He sent me 
a copy of his programs Find and Tree. I've 
recommended thai we publish the assem- 
bly version of Find in the front section of 
THE RAINBOW. In the meantime these pro- 
grams are worth owning. Write Goldberg 
at 695 Plainview Road, Bethpage. NY 1 1 7 14 
and make an offer. Or contact Paul Ward, 
who sells many of the Goldberg utilities 
with his fine book. Starr QS-9. These latest 
utilities are worth their weight in time. . .er, 
gold. Despite the fact that I mention them 
quite often in these pages, Steve's utilities 
still remain one of the best-kept OS-9 se- 
crets. Vendors, are you reading? 

Goldberg has also produced a package 
called Professional Proreaor. He wrote to 
ask if I thought there was a market for the 
package. I'll pass the question on. If you're 
looking for a security package tiiat contains 
a set of utilities such as chown (change 

owner}, crypt, hide, unhide, view, dir, 
who and lock, get in touch with Goldberg. 
He's put a lot of effort into this package. Let 
him know what you think. 

Putting OS-9 on the Mac 

Brady was also the first one to tip me off 
about an exciting new product in the OS-9 
community. Very soon my favorite operat- 
ing system will run on all Apple Macintosh 
computers. The port is being done by a 
group of programmers at UhraScienee, a 
division of Gibbs Laboratories, Inc.. 1824 
Wilmette Ave., Wilmette, IL 60091; (312) 
256-0080. 

UltraScience is also responsible for the 
PC68K1 hardware/software implementa- 
tion of OSK on IBM PC/XT/AT comput- 
ers. Its goal: a powerful graphics platform 
based on CURSES, which looks the same 
to OS-9 users on a large number of com- 
mercially available computers. Dr. Eric 
Gibbs has invited the staff of the rainbow 
to Chicago for a special unveiling some- 
time soon. I hope to be able to attend and 
report on it. 

Eve seen brief descriptions of 
UltraScience's Facet software series, and 
it's enough to make your mouth water. 
Facet contains TICTOC. a software inter- 



0178 PRINT " [yes] [noj" 

0187 RUN gfx2 ("propaw", "on") 

01 9A (* go get the answer 

01 AE RUN getkey(key,MS.horiz,MS. vert) 

01C8 (* if key is yes make it yes 

01E4 IF key="y" OR key="Y" THEN 

01F9 MS.horiz;=250 \MS.vert:=3S 

020P ENDIP 

0211 RUN gfx2 ("owsnd") 

02115 IF MS.horiz>20 AND MS.horiz^30S AND MS.vert>36 AND MS. vert 

<4 2 THEN 
024C (' it's yea so ok is true 
02 65 OK-TRUE 

-'■■■or END IF 

02 BD END 
02 6F la MS.ErrMura:=ERR 

027C RUN arrmsij (MS .ErrNum) 



Listing 4: writefile 



PROCEDURE writefile 

0000 PAKAM nirName, Name, Tname: STRING 

ems DIM Byt (144), path, tpath, El rNum :B¥TE 

0027 ON ERROR GOTO 10 
(BtSZO IF Mame= FHES 

0039 (* we forgot to select so end 

0056 END 

0053 ENDIF 

005A (- show hour glass 

00OC RON gIx2("m;Het™,aa2>4) 

007F (» try tg open icon 

0092 OPEN *'path,DirNajne + "/" + NdJiie:READ 

00A6 (- get byte info 

00B6 FOR x:=l TO 144 

00C8 GET #path,Byt{xj 

00D7 NEXT x 

00E2 CLOSE #path 

00E8 (* do we want it sent to the pr. 

010C IF Tname= ,, /p" THEN 

011 A (' yes so open it 

012B OPEN #path, Tname:WRITE 

0137 (> print out the name of the icon 

0158 PRINT Dpath USING "540"", Name 

0169 ELSE 

01 6D ( r no we whant- & tile 

0152 OPEN ((path, Name: WRITE 

ENDIF 

0190 C* start at 

01 9D .xk : =0 

01A5 (' go in sLeps of two 

01BA FOR x;-I TO 144 STEP 2 

01D2 [» use hex numbers 

01E4 FP.TNT #path USING "h2", Byt (x) ; 

SIPS PRINT #path USING "h2", Byt [x + 1 ) ; 

0210 C and a blank space 

PRINT #path, " "; 

022F xx:=xx+l 

023B IF x.x-8 THEN 

0248 (.* at the end so send a CR 

0262 PRINT #path 

0268 (• and start over 

xx:»0 

(32 81 ENDIF 

028 3 NEXT x 

CLOSE #path 

0294 END 

0296 10 ON ERROR GOTO 20 

02 9F ('• we have to mskp nnt> 

02B5 CREATE #path,Narae:WRITE 

02C1 (* and do the same 

02D3 xx:=0 

02DB FOR x;=I TO 144 5TEF 2 

02F3 PRINT #path USING "l]2",Byt tx! 1 

PRINT Irpath LTSING "h2", Byt (x i 1 > ; 

PRINT Itpath; " "; 

032A xx:-xx+l 

0336 IF xx = 8 THEN 

03-53 PRINT tpath 

034 9 kx:=0 

0351 ENDIF 

0353 NEXT x 

035E CLOSE Spath 

0364 END 

0366 20 ErrNuir.!=ERR 

036F (* report error 

037E RUN errrasg [ErrNum) 
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Listing 5: getname 



PROCEDURE 


get name 


0008 


PARAM filename t STRING 


0001 


DIM ErrHuniiBYTE 


000E 


DN ERROR GOTO 10 


m - a 


(* turn off the pointer 


0B2B 


RUN g£x2["gcset",0,0) 


B03E 


RUN gfx2 ("onset",!. 1, 5,14, 6,1,: 


0060 


RUN winaetH) 


0068 


RUN qfx2("GUtxy",l,l) 


007E 


(* what (Jo we want 


0080 


PRINT "Filename" 


0099 


RUN gfx2<"curKy",l,2) 


00AC 


RON qfx2 {"propsw" ,"oi r") 


00C0 


SHELL "tmode echo" 


00CE 


(* a name 


00DB 


INPUT ">", filename 


20E1 


SHELL "tmode -echo" 


00FS3 


RUN gfx2r'owend") 


E0FD 


RUN g£x2< l 'p3:oF£W , ^"= | n ,, ) 


0110 


t * there's a n^rne so tin this 


012C 


IF filenameO"" THEN 


01 3 b 


(* do's it start with icon. 


0153 


IF LEFTS (filename, 5) <>"ieon. 


0167 


1* no so a cm it on 


0179 


filename :- n icon."+filena:ne 


0189 


END IF 


01 S£ 


ELSE 


018F 


filename : -"" 


0196 


ENDIF 


0198 


END 


01 9A 10 


ErrRu«3:-ERR 


01A3 


RUN errrasg (ErrNuml 



face that removes differences between 
computer terminals: the Bourne shell: and 
cron, a utility thai lets you order your OS- 
9 system to perform any procedure auto- 
matically at any time. You can even tell the 
system to run a particular procedure file at 
the same time every day. week or month. 

Face! also contains XDIR, which deliv- 
ers a graphic display of file directories that 
can even be made In act like the UNIX ' i nd 
command, so filename matches can be used 
in a pipeline. And there's a menu to make 
OS-9 use much easier for the beginner. 

If OS-9 takes hold on IBM and Apple 
computers, and die same visual platform 
runs on ihe Color Computer . . . hold on 1o 
your hat. I'm talking major excitement. 

Finally software houses will find OS-9 
is a viable market for application programs 
needed by the common man. It can do 
nothing but help CoCo OS-9 users — if we 
do our part. Talk to Kevin Darling. Bill 
Brady. Mark Griffith, Ron Lammardo, Kent 
Meyers and all the other CoCo OS-9 gurus 
you know now. 

Let's gel this universal platform on the 
CoCo too. It's one more chance for the 
CoCo OS-9 user to make a mark. Good 
things are coming. Keep on hacking! 
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About 

Your 

Subscription 



Your copy of the rainbow is sent 
second class mail. You must notify us of 
a new address when you move. Notifica- 
tion should reach us no later than the 1 5th 
of the month prior to the month in which 
you change your address. Sorry, we can- 
not be responsible for sending another 
copy when you fail to notify us. 

Your mailing label also shows an ac- 
count number and the subscription expi- 
ration date, Please indicate this account 
number when renewing or correspond- 
ing with us. It will help us help you better 
and faster. 

For Canadian and other min-U.S. sub- 
scribers, there may be a mailing address 
shown that is different from our editorial 
office address. Send youi correspondence 
to our editorial offices at Falsofl, Inc., 
The Falsofl Building, P.O. Box 3S5, Pros- 
pect, KY 40059. This applies to everyone 
except those whose subscriptions are 
through our distributor in Australia. 




Listing 6: gstdir 

PROCEDURE getdir 

0000 TYPE Mic=name: STRING; select :BYT£,- xpos, ypos:lNfEGER 

001B TYPE MicSys=Dname, Iname<48) :STRING; Byt (144 >, GrpID,Buf No, Number 

, MenSel,MenNum,E,rrNum, color, scount iBYTK; horiz, tistt ■■ INTEGER 

0064 PARAM MS:MicSys 

006D PARAM dr:Mic 

2076 DIM Tname, temp (60) : STRING 

0086 DIM Count: INTEGER 

0S3SD DIM path, BT; BYTE 

0098 OH ERROR GOTO 10 

009E I* show that we are busy 

00B6 RUN gfx2 I"ge3et",202,4> 

0BC9 [* let's start at the first buffer 

00EB Count ;-0 

00F2 RUN gfs2 I "color", 11 

0102 (* get the icon directory open 

0120 OPEN #path r KS.Cname:READ+DIR 

012F RON gfx2< M cuExy", 16,3) 

3142 (* if it opened let's say what we are doing 

016D PRINT USING "sW, "Leading "*MS.Dname 

018S RUN gfx2("propsw", "of f") 

B13C WHILE NOT<EOF(»path) J 00 

01A7 (* move the count up one 

Z1BF Count :=Count+l 

01CA |* get name from directory 

01E4 GET #path, temp (Count) 

01F2 (* gg get snothet one if not at end 

0215 ENDWHILE 

0219 CLOSE in path 

021F (* skip the first 64 Dynes 

0239 FOB xx : =3 TO Count 

024C i* Is the first byte a char 

0267 If ASC (LEFTS (temp (*»;>, 1))>3I THEN 

027b (* ye 3 so clear the temp name 

0299 Tname:^"" 

029F |* now react the bytes 

02B4 FOR Xs-1 TO 32 

02C6 (* on« by one and short them out 

02E6 BT?=A5C(MIDS (temp(xx) ,», 1)1 

02FA (» is it a. large letter 

0311 IF BT>64 AND BT<96 TURN 

0324 (* yes make it small 

0338 BT:=BT+32 

0343 ENDIF 

0345 (* atop if not a valid char 

0300 EXITIF BT>127 THEN 
036C (* then 1AND it 
037B BT:=LAND(BT,127) 

@3B6 (* add the char to the name 

03A1 Tname:-Tname+CHRS(BT) 

03AE (* move the buffer up one 

03C7 M5.Number;*MS,Nutnber+l 

03D9 (* add the name to the list 

03F4 MS. Iname [MS. Number ) :-Tname 

0406 END EXIT 

040A C* or exit if byte =0 

041P EXITIF BT=0 THEN 

042B (* and move the buffer up one 

044H MS, Number; -MS. Number +1 

0<i5A (* and add the name to the list 

0479 MS. InaimMMS. Number) :=Tnams 

048B EWDEXIT 

048F <* where still going so ^dd char to name and go get another char 

04CF Tname:=Tname+CHR$ tBT) 

04DC NEXT X 

04E7 (• we got a full name so left get the icon 

0512 OPEN #path, MS. PTsame+"/"+MS. Iname (MS. Number) 

0530 (* point to the buffer to put it in 

0553 KUH gf x2 C'gplcad", MS. GrptD, MS. Number, 6,24,24,144) 

0570 [* now read the bytes to put in it 

059F :■■ x-.-l TO 144 

05B1 GET #path,BT 

05BB PUT (iMS.GrpID, BT 

0SC$ NEXT X 

0SD3 CLOSE #path 

05D9 EHDIF 

0&r>B (* well let's see if we can do that agin 

0603 NEXT XH 

060E (* all done 

0619 (•> so let's show the name of the directory 

0643 RUN gfxJC'propsw", "on") 

0656 RUN gfx2 ("color" , 1,0) 

0669 RUN Cffx2 ("curxy", 16, 1) 

067C PRINT USING "S30" " , MS . nnam* 

068C RUN showdirldr.MS) 

0S9B END 

069D 10 MS.ErrNum:=ERR 

06AA (* report any errors 

06BE RUN errmsgfjas.ExrHuia] 
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Listing 7: 


wijiset 


PROCEDURE 


winset 


0000 


(* till windint the type of win*™ we whant 


002B 


TYPE reqisters=cc, a,b, dp:B¥TE; x, y, u: INTEGER 


0050 


DIM regs: registers 


0059 


DIM eallaode,ErrNum:BYTE 


0064 


PARAM wtyp: INTEGER 


006B 


OH ERROR GOTO 10 


0071 


regs a :=0 


007C 


regs.h:=$H6 


3088 


regs.y :=wtyp 


0094 


callcOde:-S8E 


009C 


RUN syseall (callcode. regs) 


00A3 


END 


00AD 10 


ErrHum:=ERR 


00B6 


RUN errmsg(ErrNuin) 


00C0 


END 



Listing 8: mouser 



PROCEDURE mousei 

0000 TYPE regisLers = gc,.a,b,dp:Bl'TE; x, y, u : INTEGER 

0025 DIM regs ; registers 

002E DIM path,callcode, ErrNum:BYTE 

003D DIM RatFack(32) :BYTE 

004 9 PARAM horiz, vert : INTEGER 

0054 PARAM butLon:BYTE 

005B ON ERROR GOTO 10 

0361 (" get mouse info 

0072 regs.a:=0 

007D regs.bt=S39 

0089 regs . x:=ADDE(RatPack) 

0097 regs.y:=0 

00A2 callcode:»$8D 

00AA RU!J syseall (callcode, regs) 

00B9 (* set hori2 for actual th&rj adjust 

00DC horii:"RatPack (25) *2 554RatPack (26) +horiz/16 

0BF6 (* set vert for relative 

010E vert:-192* lRatPaek<31) '255+RatPack 132) t/172 

0127 (* get button info 

0139 button :=RatPack (9) 

014 3 END 
0145 10 ErrNuf!i:=ERR 

014E RUN ertmsq (ErrNurn) 

0158 END 



Listing 9: loadicon 



PROCEDURE loadicon 

0000 TYPE Mic=Name: STRING: select :BYTE; xpoS, ypOS : INTEGER 

001B type MicSys^Dname, Iname (4S) : STRING; byt (144) ,GrpID,BufNo, number 

,Men,Siel,MenNtim,ErrNum, col or, scoyrit :BYTE; rvoriz.vert ;IMTEGER 

0064 PARAM MSlMicSys 

006D PAfiAM Dr, Ic:Mic 

007A DIM K, count : INTEGER 

0085 DIM path;BYT£ 

208C (* is chere a dir name selected 

00AB IF Dr.Name-"" THEN 

00BA (■* no so use editor name 

00D2 Dr. Name : = Ic. Name 

00E1 IF ic.Name-"" THEM 

00F0 I* but no editor name ether so end 

0112 END 

0114 ENDIF 

0116 EHDIF 

01 18 BASE 

011A (* show the disk is busy 

(5132 PUN gfx2("gcset",202,4) 

0145 (* turn off logic 

0156 RUN gfx2 ("logic", "of £") 

0169 ON ERROR GOTO 10 

016F (■ open the icon path 

0134 OPEN #path,M5.Dname+"/"+Dr,Name 

019C <* found it 30 tranfer Lhe name Lo the editor 

01CS Ic. Name: =Di .Name 

01D8 RUN grx2l"gplMd",MS.GrpID, 49,6,24,24,144) 

01FD FOR x:=0 TO 143 

020D GET #path,MS.byt (x) 

021E POT +M5.GrpID,Ma.byt <x) 

0232 NEXT x 

023D CLOSE #path 

0243 _ (* place it in the update window 

0263 ' RUN gfx2 ("put", ME.GrpID, 49,26, 13) 

B27F i* blank Out the editor first 
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Sav» Time and Money with a. Surprisingly 

Affordable 2400/1200(300 BPS Hayes - 
Compatible Modem for any Computwr. 

Don't be footed by Bio low cost of these 2400 baud 
modoms. These are high qualrly modems made in [he 
USA, with performance features unmatched by 
competitors costing three times as much. 

This is full featured Hayes compatible modem that 
works with any computer. II features superior Hayes 
compatibility, advanced digital signal processing, and 
adaptive equalization for great performance and 
reliability. All ol this in a compact, attractive go 
anywhere package that's not not much larger lhan a 
paperback book. 

Convenience features like call progress tone detection, 
auto-dial and auto-answer, a call progress speaker with 
volume control, a second jack for a local phono, on 
board diagnostics. 

Money saving premiums For sign-up and connect time 
for Delphi, The Source. CompuServ, etc. Software 
available: ProcComm (PC) + 5: OuickLirtk (Mac) + 5; 
WizPro is tree (shareware) 

Backyd by twu yw&i rnry. w&rr3rilae, so you can buy 
with confidence that comes with 1 1 years of 
telecommunication enpsrience. 



2400/1200/300 BPS modem 

(Please add 2.T.0 shipping and handling) 
Dealer inquiries welcome. 
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GCS FILE TRANSFER UTILITIES 

Seo: Review - December Rainbow. 

Dale Puckatt ■ November Rainbow. 

The GCS File Transfer Utilities provide a simple 
andejuick method to transfer text and binary files from 
and to a variety of (loppy disk formats. 

Just place the PC (MSDOS), RSDOS, FLEX or 
MINI-FLEX disk into your disk drive - enter a simple 
command and the file is copied into a OS-9 file. File 
transfer back is just as simple. Under MuIi-Vju 
version, just sulecl command from one of three menus. 
Command* Dir ol PC. RS or FLEX disk 

Dump disk sector of PC. RS or FLEX 

Read file from PC. RS or FLEX disk 

Write file to PC. RS or FLEX disk 

Rename file on PC disk 

Delete file Irom PC disk 

Formal PC disk 
Extensive Single, Double sided disks. 

Options Single, double density disks. 

35, 40 or 80 track floppy drives. 

8 or 9 sectors (PC). 

First level subdirectories (PC). 

Binary files. Use pipes for direct 

and multiple transfers. 
Require* OS-9. 2 drives (one can be hard or 

ramdisk - one floppy 40 T DD DS). 

Multi-Vue for Mulfi-Vue version. 

SDISK [SDISK3 for COCO III). 

GCS Rio Transfer Utilities tor CoCo 

Multl-Viie version $54.35 

Standard version $44.95 

SDISK or SDISK3 *29.95 

Standard diskette* are OS-9 format (5.25") ado J2.5Q for 3.6". 
Orders musl be prepaid or COD. VISA/MC. Add*t.75SSH, 
COD Is additional, 

GRANITE COMPUTER SYSTEMS 

Route 2 Box 445 Hillsboro, NH 03244 
(fid 3) 464- a 8 50 

OS-9 Is a trademark of Mierowara Systems Corporation and 
Moiotola Inc. MS-DOS is a trademark ol Mterosolt Corp. 
FLEX is a Itadamark of TSC, Inc. 
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Submitting 

Material 
To Rainbow 



Contributions to the rainbow are wel- 
come from everyone. We like to run a 
variety of programs that are useful, help- 
ful and lun for other CoCo owners. 

WHAT TO WRITE: We are inter- 
ested in what you want to tell our read- 
ers. We accept for consideration any- 
thing that is well- written and has a prac- 
tical application for the Tandy Color 
Computer Tf it Interests you, it will proba- 
bly interest lots of others. However, we 
vastly prefer articles with accompany- 
big programs that can be entered and 
run. The more unique the idea, the more 
die appeal. We have a continuing need 
for short articles with short listings. These 
are especially appealing to our many 
beginners. 

FORMAT: Program submissions 
must be on tape or tlisk. and it is hest to 
make several saves, at least one of them 
in ASCII format. We're sorry, but we do 
not have time to key in programs and 
debug our typing errors. All programs 
should be supported by some editorial 
commentary explaining how the pro- 
gram works. We also prefer that editorial 
copy be included in ASCII format on the 
tape or disk, using any of the word proe 
essors currently available for the Color 
Computer. Also, please include a double- 
spaced printout of your editorial mate- 
rial and program listing. Do not send text 
in all capital letters; use upper and 
lowercase. 

COMPENSATION: Wc do pay for 
submissions, based on a number of crite- 
ria. Those wishing remuneration should 
so state when making submissions. 

For the benefit of those wanting more 
detailed information on making submis- 
sions, please send a self-addressed, 
stamped envelope (SASE) to: Submis- 
sion Guidelines. THE rainbow. The Fal- 
sol't Building, P.O. Box 385. Prospect. 
KY 40059. We will send you compre- 
hensive guidelines. 

Please do not submit material cur- 
rently submitted to another publication. 



0390- 


RUN loadbat'(tc.Kamc) 


02A9 


(* now fill it with the icon 


02C5 


RUN show i con (ME. by t) 


02D2 


END 


02BA 10 


MS.£rrNum:=ERR 


0?E1 


(* report the errej 


02F3 


PUN errmsg (MS.ErrNum) 


0301 


END 



Listing 10: getfUe 



PROCEDURE get-file 

0000 TYPE Misname: STRING; select :B3fTE; xpos, ypos : INTEGER 

001B TYPE MicSys=DnairLss,Iname(48) : STRING; byt ( 144) , Grpld, BufNo, number 

, MenSel.MenHum, ErrNuM, mlnv, scount :BiTE; horis, vert: INTEGER 

0064 PARAM MS:MicSys 

m6D PARAM Dr,Ic:Mic 

007A DIM button :B1'TE 

0061 ON iRRQR GOTO 10 

0087 (* clear the select poa 

0O9E RUN gfxZf'pufjMS.GipIJ, 50, Dr.xpuK.Dr.ypos) 

00C4 (* put it in update window 

00DE RUN gfx2 ("put", MS. Grpld, 50,26,13) 

00FA REPEAT 

00FC IF MS.horii>5 AND MS.horiz<:255 AND MS,vert>40 AND MS.veit 

<185 THEN 

0129 (* use open pointer 

01 3C RUN gfx2rge£et",MS,GrpId,52) 

3154 (* put in update window 

016B HUN gf*2("put",MS.GrpId, Dr . select, 26 , 13) 

018C ELSE 

0190 IF KS.horiz>60 AND MS .hori*<l 30 AMD MS,vert<30 THEN 

01B3 (* use kill pointer 

01C6 RUN grx2 i"<jeset",MS.tSrpid, bflj 

01 DE ELSE 

£1-2 (* use selected as pointer 

01FC RtJH gfx2 ("put",MS.GrpId, 50,26, 13) 

0218 RUM gZxZ i"gcaet M , MS. Grpld, Dr. select 1 

0235 ENDIF 

0237 ENDIF 

0239 RUN mouaer (MS. horia, MS, vert, button) 

02S3 UNTIL buttonofil 

025E RUN gf x2( "put", MS. Grpld, Dr. select, Dr.xpos, Dr .yDos) 

0289 RUN gfn2("put",MS.GrpId,49,26, 13) 

02A5 IF MS.horiz>6 AND M5.horiz<255 AMD KS.vert>40 AND M3.vert<lB5 

THEN 

0*fD2 {* we selected to open it 

«2EE MS. Buf No: -De. select 

02FA RUN lo*dicon(MS,Dr,Ic) 

030E ENDIF 

0310 IF MS'.lK>r£z>66 AND MS .horiz<130 AND MS.vert<30 THEN 

0333 (* we selected to kill It 

034C SHELL "del "+MS .Dname+"/°+Dr . name 

0366 MS. Inamel Dr. select) :="icon.XXXX" 

0380 (* now let's see what the dir looks like 

03AS RUN shuwdir (MS.Dr) 

03B7 ENDIF 

03BS END 
03BB 10 MS.ErrNum:=ERH 

03C8 RUN errcisg(MS.ErrNum) 

03D5 END 



Listing 11; getkey 



PROCEDURE getkey 

0000 (* something like mouser but add the keyboard 

002D PARAM key: STRING [1] 

0039 PARAM horis, vert: INTEGER 

mm TYPE resistere-dp, =,b,cc:BYTEi K, y, u : INTEGER 

0069 DIM regs: registers 

0072 DIM HatPack (32) :BVTE 

007E (* set the key's to nothing 

0099 key:="" 

00AB REPEAT 

00A2 regs.a:=0 

00AD tegs. b: =589 

00B9 regs.x:=ADDR(RatPack) 

00C7 regs,y;=0 

00D2 RUN syscall (SBD.regs) 

00E0 c check the keyboard 

0BF5 RUN inkey(key) 

00FF horii :-RaLPii(jk (23) *255+RdtPack (26) +horiz/l7 

0119 vert : =192* (Rat Pack (31) *255+R=tFack (32) ) /176 

0132 IF RatPack(S)<>0 THEN 

01*0 t* button used so change the key to something 

01 6D key:^" " 

0175 ENDIF 

0177 UNTIL keyo"" 



6=b 
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It's Tine for a Sale 

SAL£II 



It's Fail, and «/»/ better fine than this to hwe a 
sale? We're celebrating our upcoring l^Hh birthday! 
H years, In business!, WOW, that's* longer than 
any other GcCo corvaryl 5>o lets have a sale to 
end all safes. In the July issue. The FAJN&OW 
wiote none good things about our product*. We 
decided to put then on sale. Gall for unlisted 
sales and other new products'. 

Here Is what KMNPOW said about Sculptor'- 
"Sculptor: The most powerful software system made for 
OS-9. " , "it is extremely easy to use as a programming lan- 
guage, and you will be able to write programs in about 
one-tenth of the time you could write the same thing in C" 
" If you want to pick a language to learn, Sculptor is it. " 
Save $50, Now on Sale for ONLY $149.95! 

fi&e is that RAIN&OW sold about Dync&tort 

"DynaStaris the best, most serious word processor under 

OS-9" "Now that is word processing!" 
Save OVER 50%! Now on Sale for ONLY $69,95 
Save Even More! 
Get DynaSpell with it for ONLY $15.00!!! 

tl&e is htW ffiNPCWsdd about the Wfe; 
"The Wiz: Unquestionably one of the finest OS-9 terminal 

programs available," , "The Wiz has it all." 

Now on Sale for ONLY $49.95! 

tlete is w<W mUPONsold about 

"Inside 05-9U&1 II": 

Inside OS-9 Level \\." authoritative and comprehensive look 

inside OS-9 Level II for the CoCo." 

Still on SALE for ONLY $19.95 



Hard Drive Interfaces & Etc. 



The Eliminator™ Special 179.95 4046* 

See Eliminator OPTIONS also 

WD1QC2-Q5 Disk Controller Tor Eliminator (Reguired lor disk operation) 199,95 

B&B XT PC style interface 69.95 

B&B XT RTC interface w^clock/calendar 99. 9S 

See B&B OPTIONS also 

Hard Drive case with 60W P/S & Fan 99.95 

SPECIFICATIONS: fat I S - Ho«p, 5.5* high, 7" "»d». *0 Will pouu (..pply ™rl, J drive rype ,>,«.», 
LMrmeuurs, qjiet 12 volt DC Fan. LED power nditalor. sola matchm CoCcr. Holds 2 Ifi! height hard at Poppy 
drivns nnd haiirtd guided sfKie f« ■ PGB Htm fiize ol fl drive (IBie rha WD'002-OE «jntro*erl 



FBU Fast Hard disk Back Up CoCo OS 9 version 
R.S.B, RS Disk Basic under OS9 

Floppy Drives (5.25" and 3.5 FLOPPY DISKS) 

TEAC High Quality Drives - 1 Year Warr. 
FDS5B 36QK 40 Track DS S.35" 
FD55F 720K 80 Track DS 5,25; 
FD3SF 720K 80 Track DS 3,5" 

(Bare drives, requires case ana power supply) 



65.00 

39 95 



11S.00 
151.00 
117.00 



Here Is wW KMN&OW sold about had drives; 
"Frank Hogg Laboratories has been selling hard-drive 
systems longer than any other RAINBOW advertiser" 
FLASH! The Eliminator™ is now SHIPPING! 

The Eliminator™ based kit includes Bruce Isied's new interface "The Eliminator" 1 *' 
the Western Digital WD 1002-05 high speed controller. Features; lastest system 
available, 1 megabyte transier in only 37 seconds!! More than twice as fast as other 
systems! Supports <1 (loppy and 3 hard drives, type ahead (No halt) for both floppy 
and hard disk, auloboot 0S9 L1 or L2 from hard or floppy disk, £ serial ports, 1 
parallel port and Real Time Clock socket Hard drive with WD 1002-05 controller, 
ST506 cable set, 3 tout 40 pin cable, Hard Drive Case with 60 watt power supply 
and fan, OS9 software for l_l and Lll with source, Complete instructions, Easy one 
evening assembly. We also sell the individual parts ol the system, please call. 

20 Meg Eliminator™ Kit Complete 799.00 

40 Meg Eliminator™ Kit Complete 899.00 

70 Meg Eliminator™ Kit Complete 1299.00 
Assemble fmt & Test any of the above 60.00 

Eliminator™ OPTIONS: 

Real Time Clock chip 30.00 

Serial cable set (2 DB25) 30.00 

Parallel cable (Centronics) 30.00 

Floppy Cable Int & Ext 25.00 

Burke&Burke Based Kits 

REG SALE! 

20 Meg B&B Kit Complete 408.00 450.00 

30 Meg B&B Kit Complete 5 4 8.00 495.00 

40 Meg B&B Kit Complete 618.0 575.00 

Assemble fmt & test any of the above 50.00 

B&B OPTIONS: 

B&B Real Time Clock (add to above) 30.00 

B&B XT ROM Auto Boot from hard disk 19.95 

B&B Hyper I/O DECB on hard drive 29.95 

Burke & Burke based kit includes: Burke & Burke (BfiB) XT PC interface. Hard drive 
with controller, 3 foot ST506 cable set. Hard Drive Case with 60 watt power supply 

and fan wjlh room and power for a second hard drivel Includes QS9. LI and Lit 
software, 1 megabyte transfer in only 45 seconds!! Twice as fast as other systems, 
Type ahead under OS9. (IMo hall) Complete instructions. Easy one evening 
assembly. We also sell the individual parts of lhe system, please call. 

When it comes to service, customer support, and 
help, Frank Hogg Labs is tops! 



ORDERING INFORMATION 



VISA and M/C, check and C.O.D. Conlential U.S. software 
shipping add $3.50 Ground - $6.00 Two Day Air. Hardware add 
$1 1 ground - $22 Two Day Air. Please call for Next Day Air 
costs and C.O.D. Foreign add 10% Shipping {Minimum $5 
USD). NY residents please add 7% sales tax. 

Frank Hogg Laboratory, Inc. 

Since 1976 

770 James Street. Syracuse, NY 13203 
Fax 315/474-8225 



Call 315/474-7856 
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Your First BASIC Program 



Maybe you've muddled through 
some one-liners in the pages of 
THE RAINBOW, or even tied to- 
gether a program of ten lines or so. Where 
do you go from here? How do you actually 
go about constructing a basic program of 
hundreds of lines? What's the structure of 
the program? How many subroutines should 
you use? What about line numbers? What 
variable names should be used? In this 
article I'll try to answer .some of those 
questions. 

I assume you're using DECB, Disk 
Extended Color basic. Many of the tips I 
mention here also apply to Extended Color 
BASIC on cassette systems as well. How- 
ever, most won't apply to BASIC09, the 
basic used in OS -9. Although 1 use an 
example of a mailing list program, all of the 
steps apply equally well toother programs. 

Step 1: The Zen of Programming 

Before you even begin, prepare yourself 
mentally. It's tough initially, but the more 
you do it. the easier it becomes, if you think 
you're not cut out for programming be- 
cause you're blundering through and redo- 
ing the program dozens of times, welcome 
to the club! What you see in the pages of 
RAINBOW is the final result of people who 
have blundered through a program dozens 
of times (and I certainly include myself in 
that category). Another truism: There are 
an infinite number of ways to write a pro- 
gram, not just one. 

Bill Barden has written 2 7 books and over 
100 magazine articles on various com- 
puter topics. His 20 years' experience in 
lite industry covers a wide background: 
programming, systems analysis and man- 
aging projects for computers ranging from 
mainframes to micros. 



By William Barden, Jr. 
Rainbow Contributing Editor 

Step 2: Know What You Want To Do 

Really think through what you want to 
accomplish and how to go about it. Maybe 
the idea isn't even workable. If you have a 
thousand names in a mailing list and each 
name is 1 00 characters long, it's going to be 
very difficult to process 100,000 characters 
in 64K of memory. If you want to write a 
simulated car race game to compete with 
the ones at the arcades that show buildings, 
scenery and crashes (with instant replays), 
you're not going to be able to do it on the 
CoCo or any other popular system — they're 
simply too slow. 

The catch here is that often you don't 
know what's possible until you have some 
experience in BASIC programming. With a 
few programs under your belt, it's much 
easier to get an idea of what's achievable 
and what isn't. However, spend a great deal 
of lime thinking through your project. 

For our example, assume you 're writing 
a mailing list program that handles up to 



250 members in a club. Each member is 
allowed a 64-efmracter address. You are 
able to add. delete and modify names, dis- 
play, and print the list. The list is in alpha- 
betical order by last name. A typical entry 
is shown in Figure 1 . 

Step 3: Write Down the Screen Displays 
and Menus 

Once you have a good idea of what 
you're going to do and what you want to 
accomplish, write down all the LL goes-in- 
tos" and "goes-outas." What data goes into 
the program? What data comes out of the 
program? What does the data look like — 
how many characters are allowed? What 
kind of characters? What is the format of 
screen displays? Where are they located on 
the screen? Will there be text and graphics 
or just text? 

Believe it or not, drawing up every screen 
display and showing the formal and screen 
position saves you a great deal of work in 



Figure 1: Sample Entry for Mailing List Program 

Barden, William P.O. Box 3568 Mission Vie jo, CA 92692 

01234 5678901234567 89012 34 567 8901234 5 67 8 901234567 89012 34567 89012 34 



Figure 2: Typical Screen Display for Mailing List Program 

*****Insert Name***** 
Last name : 
First name (s) ; 
Street Address: 
City: 
State: 
ZIP: 

***You have exceeded 64 characters, Please reenter*** 
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programming — more than enough to 
compensate for the time in planning. 

A typical screen display tor our mailing 
list program is shown in Figure 2. 

Step 4: Throw Away the Flowcharts 

In case you're not familiar with the | — 
term, flowcharts use symbols such as 
boxes, diamonds and circles to show the 
flow of a program. It's a planning step. 
In the old days, books stressed that a 
flowchart should always be used to plan 
a program. I've included that idea in 
some of my books. However, as a pro- 
grammer I never flowcharted until after 
the program was written. And I wasn't 
alone. Flowcharts are too cumbersome 
to use and never anticipate the problems 
that arise in programs. 

Instead of flowcharts, write an atgo- 
rithrn, abroad sequence of operations in 
plain English describing how a program 
flows. A more detailed version of this is 
known as "pseudo-code." but you don't 
actually have to use any BASIC com- 
mands in pseudo-code. An algorithm 
for the mailing list program is shown in 
Figure 3. 

You can see that it is not too detailed 
but gives a good general idea of how the 
program works. Include any loops by 
drawing lines. This type of program- 
ming aid gives the overall program struc- 
ture — you can see how things may 
break down into several functions: Main 
Menu, Initialize, Insert, Delete, Modify, 
Display, Print and End. Not shown are 
all the lower-level functions that answer 
questions such as: How do I insert in the 
list itself? What does the list look like? 
Is it an array of items? It looks as if I need 
to keep it sorted — what kind of sort rou- 
tine should I use? 

You can now answer most of these 
unresolved questions by giving some 
further thought to the lower level func- 
tions and the structure of the actual 
mailing list. As an example, assume the 
mailing list is held in a string array kept 
in alphabetical order by last name. In- 
sertions are handled by rewriting the array 
to a second array, inserting the new name at 
the proper point. Deletions are bandied by 
clearing an array entry with a special string, 
such as "*****/' until the next insert, at 
which time the entry is completely deleted. 
Modifying the list deletes the old entry and 
inserts the new entry by rewriting to the 
second array. 

Step 5t Make a List of Subroutines 

Once you have a rough idea of the pro- 
gram flow, you can scan it to see what kind 
of subroutines you need. You don 't have to 
use subroutines — you can simply write the 
program as one huge mass straight through. 
A lot of code has been written this way. 
However, subroutines are easier to debug, 



saving you a lot of time. Subroutines also 
add modularity to the program. You'll proba- 
bly be able to reuse a subroutine for some- 
thing else — for example, a subroutine to 
search a list can be used in many different 
programs. 



Figure 3: Algorithm for Mailing 
List Program 

Initialise everything 

Title message — wail five seconds 

Display main menu 

Read in user choice. Initialize. Insert, Delete. Modify. 

Display, Print, or Rnd — check if valid 
Branch out lo menu choice 
Initialize: 

Clear array, reset pointers 

Read in user-specified file or Mart new File 

Return 
Insert: 

Display insert menu 

Read in fields 

Check for < 64 Characters, error message if not 

Add to list 

Return 
Delete: 

Display delete menu 

Read in name for delete 

Search list for name, display if found, error iTnot 

Ask delete, Y/N 

Delete if Y. return to main menu if no 

Return 
Modify: 

Display modify menu 

Read in last name for modify 

Search list for name, display if found, error if not 

Read in fields to modify 

Delete old entry Troiii list, insert new entry 

Return 
Display: 

End? If so return 4- 

Display next group 

Ask for keypress 
I 



Print: 

End? If so return *■ 
Display next group 
Ask for keypress 



Rnd: 



Write out file to disk 



Each subroutine should perform a use- 
ful function. It can call other subroutines 
within it. You should list the variables 
being used to pass parameters to the sub- 
routine and what parameters mine out of 
the subroutine as well. Figure 4 shows a 
sample list for this example, 

Step 6: Write the Subroutines or the 
Main Code? 

Programmers are divided on which of 
these actions to take first. Once you've 
reached this point, you have a pretty good 
idea of the structure of the program, the 
number of main functions, the number of 
subroutines, and what they accomplish. 
You can now write the subroutines starting 
at the bottom, or you can write the main 



code starting from the top — it's a matter of 
personal preference. I use a combination of 
the two since there are bound to be addi- 
tional questions that come up to redefine 
things. 

It's completely possible that questions 
come up which cause you to redesign 
portions of the program. For example, 
what if you had planned to sort a string 
array of 250 entries for the mailing list 
by moving strings within a single array. 
Every insert for a large list might mean 
seconds of waiting time. 

If you're writing the main code, 
include all the parameters you're pass- 
ing to the subroutine just as if it exists. 
Assign a line number for the subroutine 
that's easy to remember andjot it down. 
(Not having labels for subroutines in 
BASIC is something we must live with.) 
An example is: 

1000 ' Search for name - error m 

essage if not found 

1010 ZA$=RE$: GOSUB 10000 

1020 IF ZEO-1 THEN GOTO 1500 

1030 ZA$-"Name not found": GOSUB 

11000 



Step 7: Desk Check 

In the old days there was a great 
deal of "desk checking." Programmers 
pored over code, making certain all their 
zeroes were slashed and looking for 
logical errors in their programs. Of course 
they didn't have their own computers 
on which to debug — they had to wait in 
line for expensive hardware. These days 
it's not as important to desk check your 
code over and over again. When you 
have completed your coding, get a good 
listing and save the program on disk, to- 
gether with a backup version (call it 
progam.bak or similar). Now go over 
the listing to answer these questions: 



• Does the program generally follow the 
flow as written down previously? 

• Are there any gosubs to lines that don't 
exist? 

• Are all parameters set up before a gosub? 

• Does every subroutine have a return? 

• Are variables with the same name used in 
different places, causing them to be over- 
written? 

• Can you find any logical errors? 



A rule of thumb: Desk check until you 
find the last error. Then desk check again, 
and if no more errors are found, the pro- 
gram is ready for debugging on the CoCo. 

Step 8: Debug 

Debugging is the hardest part of devel- 
oping a program. For a larger program you 
discover situations you never thought of 
while designing it — - situations that cause 
you to beat your head in despair. There's a 
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good chance you'll have to add or modify 
code during the firsl stages of debugging. It 
so. give the new code a cursory desk check 
from a fresh listing (and save the new 
program with a backup). 

Remember that BASIC shines in de- 
bugging. Use the interactive ability of 
BASIC to put in stop commands at dif- 
ferent points in the program to examine 
the contents of variables, arrays and 
strings. You can also insert print state- 
ments to print variables or other data as 
the program executes. 

When the program appears to be 
working well, you're only at the half- 
way point in debugging. At this point 
generate some test data to complete the 
process. For our mailing list example, 
you actually want to generate a mailing 
list of several hundred names. It's a lot 
of work but if you don't do this. I almost 
guarantee you*ll run into unanticipated 
problems later on — things like Out Of 
Memory errors, array subscripts too 
large, execution speed loo slow and the 
like. You might want to consider writ- 
ing a second program just to generate 
dummy data. In our mailing list example, a 
shortprogram can easily produce a disk file 
with dunimv names such as: 



debugged, consider renumbering from the 
front back, using increments of 10 and 
starting at 100. You can then renumber 



Bardem William P.O. 
Viejo, CA 92692 
Bbrden, William P.O. 
Viejo, CA 92692 
Berden. William P.O. 
Viejo. CA 92692 
Bdrden. William P.O. 
Viejo, CA 92692 
Berden. William P.O. 
Viejo. CA 92692 
Bfrden. William P.O. 
Viejo. CA 92692 
Berden. William P.O. 
Viejo. CA 92692 
Bhrden. William P.O. 
Viejo. CA 92692 
Garden, William P.O. 
Viejo. CA 92692 
Cbrden. William P.O. 
Viejo. CA 92692 



Figure 4: Sample for Typical Subroutine 

Display menu mi screen subroutine 

Read input line and count characters 

Clear Error message on Screen 

Display error message on screen and wait for keypress 

Search array Tor name 

Rewrite array for insert 

Delete entry in array 

Display list 

Prim list 

Read from di.sk file 

Write to disk file 

A sample definition lor a subroutine is: 

Search Array for Name Subroutine 
Inputs: ZA$=narae for search, e.g., "Burden, William" 
Outputs: ZE=- 1 if not found, otherwise # of entry, 1 -250 
ZA$=unchanged 



before major actions in the main program 
(perhaps a comment line every dozen ba- 
sic lines or so). 

Here's a program to strip com- 
ment lines from program files saved 
with the , a (ASCII) option: 

10 INPUT "BASIC PROGRAM FILE NA 

ME:", SFS 

11 INPUT "SHORT BASIC FILE NAME 

:", DF$ 

12 OPEN SF$ FOR INPUT AS #1 

130 OPEN DF$ FOR OUTPUT AS #2 

14 IF EOF < 1 ] THEN GOTO 190 

150 LINE INPUT#1, AS 

160 IF LEFTS ( AS, 1 ) - "'" THEN 

goto tau 

170 PRINT#2, AS 
1B0 GOTO 140 
190 CLOSE 



Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 
Box 3568 Mission 



Step 9: Wrap It Up 

After wringing out the program as well 
as you can, save the final version on disk, 
both in a master file and a backup tile. 
Delete any previous versions so you won't 
be confused and start using an older version 
that has not been fully debugged. Get a 
final listing and file one copy away as a 
master copy to match the file on disk. 

Line Numbering 

There are no hard and fast rules about 
line numbering. During debugging you are 
inserting and deleting many lines and using 
the rehum command to get "gaps" so you 
can add new lines. Once the program is 



major subroutines or blocks in convenient 
line numbers by using the BASIC renum 
new, old, increment format. For example, 
the menu functions of Initialize, Insert, 
Delete, etc., in our mailing list example can 
be renumbered in blocks of 10000. 1 1000, 
12000. etc., to correspond with the menu 
item number. 

Comments 

It's important to use comments pro- 
fusely in a language such as basic, which 
doesn't have much structure. Use both be- 
ginning comment lines: 

2000 ' Subroutine to raske a stri 
ng all uppercase 

and comments at the end of lines: 



7560 2AS-RES: GOSUB 20000 
e out the new list 



writ 



When you have a final version of the 
program (if there is such a thing), delete all 
comment lines for compactness, providing 
there are no subroutine calls to comment 
lines (go$ub 2000 for the above code causes 
an error if the lines are deleted). You can 
even save the comment lines to add back in 
the program by a merge, providing neither 
the saved program without comment lines 
nor the saved comment lines have been re- 
numbered. 

However, if too many comments arc 
used, the program becomes cluttered and 
hard to read, not to mention using up a great 
deal of memory. There's a fine line here. I 
favor several comment lines at the begin- 
ning of each subroutine (showing what 
goes in and comes out) and a comment line 



Change Line 160 to: 



160 IF LEFTS ( A$, 1 ) <> "'" THE 
N GOTO 180 



to create a file made up only of com- 
ment lines. 

Subroutines vs. Main Line Code 

The main portion of the program ideally 
is made up of many gosubs with not much 
code in between. This makes for a very 
structured, easy-to-read program. The pro- 
gram listing looks nicer if the main code is 
placed at the beginning. However, com- 
monly called subroutines are found fasterif 
they are put directly at the beginning of the 
program. You may wantto do this if you're 
trying to crank out the absolute fastest 
speed from your program. 

Here's a short example to illustrate what 
I mean — it doesn't do anything except 
loop lOOOtimes, calling a subroutine to set 
J=i, 

100 J=l 

110 RETURN 

1000 FOR 1=1 TO 1000 

1010 GOSUB 100 

102 NEXT 

If the subroutine is placed at the end of the 
program and there is intervening code: 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
2000 
2010 



FOR 1=1 TO 1000 
GOSUB 2000 
NEXT 
END 



J=l 

RETURN 
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Execution takes 8.54 seconds, about seven 
percent longer. This effect is even more 
significant for long programs with subrou- 
tines towards the end. The reason lor the in- 
creased execution time is that the basic in- 
terpreter must search through all the lines 
from the beginning of the program to find 
the subroutine. 

There's really no limit to the number of 
subroutines that can be used, other than a 
practical memory limit. However, you 
probably don't want to use more than three 
or four levels of subroutines — using more 
makes the program hard to comprehend, 
and you run the risk of using the same 
variable names. 

Multiple-Statement Lines 

You can add as many statements as you 
can cram into a line. This is efficient in 
terms of speed and memory storage. How- 
ever, you might want to break up the code 
into individual lines, using multiple state- 
ment lines only for subroutine calls or tight 
loops such as; 

1000 FOR 1=1 TO 100: A(I)=0: NEX 

T 

1010 ZA$="* ****": GOSUB 10000 

Blanks Within Lines 

IfyouhaveaCoCo3,usethe80-column 
width mode for writing your code — the 
32-column limitation is just at odds with 
anything readable. Adding blanks really 
helps in the readability of lines and is not 
that much less efficient in speed (adding 
maybe two percent or less). Which is more 
readable? 

200 IFX=-1THENG0T0231ELSEPRINT@ 
Y*32+X, "0":A<Y*2Q+X)=I 



or 



200 IF X= -1 THEN GOTO 231 ELSE 
PRINTS Y*32+X, "O": A(Y*2Q+X)= I 

Variable Names 

Unfortunately CoCo BASIC does not 
allow the flexibility of more than two- 
character variable names. The following 
code prints 200 200: 

100 ANSWER = 100 

110 AN = 200 

120 PRINT ANSWER, AN 

You can use accounts and acctpay, but 
since they are treated as the same name 
(ac), you have a debugging problem on 
your hands. One convention I use is to 
name all variables used in subroutines with 
the prefix letter Z — 2A, zb, zcs, elc. 
However, it's easy to run out of variables 
this way. 

To keep all variables straight, use what's 
called a ihna dictionary. This is a table at 



the beginning of the program that lists 
every variable name with its function in al 
phabetized order: 

101 ' DATA DICTIONARY 

102 1 A${) = ARRAY OF 250 ELEMEN 
TS HOLDING LIST NAMES 

103 , ACTIVE = CURRENTLY ACTIVE 
LIST ENTRY 

104 ' I, J, K - WORKING VARIABLE 
S, USED MANY PLACES 



121 * ZAS - INPUT TO DISPLAY MEN 
U SUBROUTINE, HOLDS TTTT.F. 

122 ' 2B5 = INPUT TO DISPLAY MEN 
U SUBROUTINE, HOLDS ITEM 1 

123 ' 2C9 = INPUT TO DISPLAY MEN 
U SUBROUTINE, HOLDS ITEM 2 



Thistable is extremely helpful In coding 
the program and in debugging. It elimi- 
nates duplicate names used in different 
functions and fur different purposes. 
Variables i, j. k, l, m and n are commonly 
used for "loop control variables'" to keep 
track of a count through a loop. 

Using NEXT 

Use next by itself rather than with a 
variable name. This program: 

100 A=0: B=Q; C+0: D=0: E-0: F=0 
110 FOR I - 1 TO 1000 
120 FOR J = 1 TO 10 
130 NEXT J 
140 NEXT I 

executes in about 32 seconds as it stands, 
but in about 26 seconds (a 20-percent 
improvement) when lines 130 and 140 read: 

130 NEXT 
140 NEXT 

BASIC does not have to search for the 
variables in the latter case. Of course the 
readability of the program is decreased. 

Arithmetic Computation 

This program: 

100 FOR 1=1 TO 500 
110 J=I n 2 
120 NEXT I 

computes the square of i for 1= 1 , 2, 3. etc. 
In doing so it uses exponentiation, a time- 
consuming algorithm. The program takes 
30.85 seconds. If amultiply is used in place 
of the exponentiation, the program takes 
3.33 seconds: 

100 FOR 1=1 TO 500 
110 J=I*I 

120 NEXT I 



Although the difference between multi- 
plication and division is not as extreme, 
multiplication problems are generally faster 
than division problems by about 15 per- 
cent. In place of A=B/5. you might use 
A=B*0.2, for example. 

Use Step-Wise Debugging 

When debugging, make certain the lower- 
level portions of the program are working 
first. It's hard to debug mainline code that 
calls one subroutine which calls another 
subroutine when the bottom subroutine is 
bad. Use a combination of bottom-up and 
top-down debugging. Some programmers 
exhaustively check out the lower-level code 
first and work their way up. This is tedious 
but effective. 

The same approach can be used in pro- 
ceeding sequentially through a program. 
Stop at a certain point and use the print 
statement to print out variables and arrays 
to make certain data is what it should be. 
Variable and array data is not reset until 
you edit the program in some way, so it's 
easy to stop and then perform a statement 
such as: 

FOR 1-1 TO 50: PRINT N(I), : NEXT 

which immediately prints the contents of 
Array n on the screen so you can check it for 
accuracy, 

tron (TRace ON) is fine in theory, but 
who wants to wade through 32,000 itera- 
tions of a loop with line numbers filling up 
the screen? Use tracing sparingly; a few 
stops in the right places can probably find 
the problem faster than tron. 

Avoid Moving Large Data Blocks 

Nothing slows down a program more 
than moving around hundreds of strings, so 
try to avoid such large data movements. 
Learn about such data structures as linked 
lists, which change only a pointer to the 
next element in the list to insert and delete 
items, and pointers, which point to an entry 
number in an array. For example, in the 
mailing list program, an alternative ap- 
proach to alphabetizing data is to keep the 
entries in a string array with a list of point- 
ers to the array — 2, 34, 205, 4, 6, etc. The 
pointers are then shuffled around to order 
the list. It's much more efficient to move 
integer data than to move large strings to 
reorder lists. 

Remember, there's never a wrong way 
to write a program as long as it works for 
you and accomplishes your goals. Improve 
your techniques as you go along, but get in 
there and use the power of BASIC in the 
CoCo, There's an infinite number of appli- 
cations just wailing to be run, 

See you next month with more CoCo 
topics. fri\ 
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These Fine Stores Carry THE RAINBOW 

The retail stores listed below carry the rainbow on a regular basis and may have other 
products of interest to Tandy Color Computer users. We suggest you patronize those in 
your area. 



ALABAMA 




FLORIDA 




KENTUCKY 




Birmingham 


Jefferson Mews Co. 


Boca Raton 


Great American Book Co. 


Hazard 


Daniel Boone Gulf Man 




Little Professor Book center 


Clearwater 


The Avid Reader 


Henderson 


Malts' News & Gifts 


Brewton 


McDowell Electronics 


Dania 


Dania News & Books 


Hopkinsville 


Hobby Shop 

Hawley-Cooke Booksellers 
(2 Locations) 


Florence 


Anderson News Co 


Davie 


Software Plus More 


Louisville 


Greenville 


M&B Electronics/Radio Shack. 


Ft- Lauderdale 


Bobs News S Books 




Madison 


Madison Books 




Clark::. Out of Town News 


Newport 


Simon's Castle News 


Montgomery 


Trade- N-Books 


Gainesville 


Paper Chase 






Tuscaloosa 


Turtle's Records S Tapes 


Jacksonville 


Book Co. 


LOUISIANA 








Merrltt island 


The Open Door 


Baton Rouge 


City News Sland 


ALASKA 




North Miami 




Lockpon 


TV Doctor.'Hadio Shack 


Fairbanks 


Arrow Appliance/Radio Shack 
Baker & Baker Booksellers 


Beach 


Almar Bookstore 


Monroe. 


The Book Rack 


ARIZONA 


Panama City 
Pensacola 


Boyd- Ebert Corp, 
Anderson News Co. 


New Orleans 


Sidney's News Stand Uptown 


Cottonwood 


A & W Graphics Co. 


Pinellas Park 


Wolfs Newsstand 


MAINE 




Flagstaff 


MeGaugh's Newstand 


South 




Bangor 
Brockton 


Magazines, Inc. 


Lake Havasu 




Pasadena 


Poling Place Rnnkstnra 


Voyager Bookstore 


Chy 


Book, Nook 


Starke 


Ftecord Junction, Inc. 


Caribou 


Radio Shack 


Phoenix 


Houle Hooks 




Radio Shack Dealer 


Oxford 


Books N Things 
Radio Shack 




Lints Professor Book Center 


Sunrise 


Sunny's at Sunset 


Sanford 




Software, Etc. (two locations) 


Tallahassee 


Anderson's News Co, 








TRI-TEK Computers 




Dubey's News Center 


MARYLAND 




Sierra Vlsla 
Tempe 


Livingston's Books. Inc. 
A3U Bookstore 


Tilusville 


Compulse 


Collage Park 


University Bookstore 




Arizona Small Computer 


GEORGIA 




MASSACHUSETTS 






Books, Etc. 


Atlanta 


Border's 


Boston 


Eastern Newsstand 




Computer Library 


Bremer 


Breman Electronics/Radio Shack 


Cambridge 


Out Ot Town News 


Tucson 


Anderson News, Co. 


Forest Pa* 


Ellers News Center 


IpSWich 


Ipswich News 
Computer Plus 




Software, Etc. 


Jesup 


Radio Shack 


Littleton 






Thomasville 


Smokehouse Newsstand 


Lynn 


North Shore News Co* 


ARKANSAS 




loccoa 


Martin Music Radio Shack 


Swansea 


Newsbreak, Inc. 


Eldorado 


Howard's Newsstand 










Fayetteville 


Vaughn Electronics/Radio Shack 
Hot OH the Press Newsstand 


IDAHO 




MICHIGAN 




Ft. Smilh 


Boise 


Book Sheir, Inc. 


Allen Park 


Book Nook. Inc. 


Little RocK 


Anderson News Co, 


Moscow 


Johnson News Agency 


Birmingham 
Durand 


Border's Book Shop 










Robbins Electronics 


CALIFORNIA 




ILLINOIS 




E. Detroit 


Merit Book Center 


Berkeley 
Buena Pa* 


Lyon Enterprises 
Software, Etc. 


Belleville 

Centralis 


Software Or Systems 
Books a Co., Inc. 


Hillsdale 

Holland 


Eiectonics Express/Radio Shadk 
Fris News Company 


Canoga Park 


Software, Etc. 


Champaign 


Bookmark 


Kalamazoo 


The Book Raft 


Citrus Heights 


Software Plus 


Chicago 


B. Daiton Booksellers 


Lowell 


Lowell Electronics 


Hollywood 


Levity Distributors 


Decatur 


Book Emporium 


Muckegon 


The Eight Bit Corner 




Stel Jen, Inc. 




K-Mart Plawt 


NilBS 


Michlaha News Service 


La Joiia 


Universal News Agency 

Butler & Mayas Booksellers 


East Molina 


Northgate Mall 
Book Emporium 


Perry 
Riven/lew 


Perry Computers 
Riverview Book Store 


Los Angeles 


Center Fold Newsstand 


Evanston 


Norris Center Bookstore 


Roseville 


New Horizons Book Shop 




Circus of Books (J locations) 


Kewanee 


Book Emporium 








Software, Etc. 


Llale 


Book Nook 


MINNESOTA 




Manhattan 




Lombard 


Empire Periodicals 


Surnsville 


SI'iindar'E. Borneville 


Beach 

Marysville 


Software. Etc. 
Bookland 


Newton 
Pans 


Bill's TV Radio Shack 
Book Emporium 


Crystal 
Edina 


Shinder's Crystal Gallery 
Shinder's Leisure Lane 


Napa 


Bookends Bookstore 


Peoria 


Book Emporium 


Minneapolis 


Shinder's (two locations) 
Shinder's Ridge Square 


Northridge 


Software, Ele. 




Sheridan Village 


Minnetonka 


Oakland 


DeLsuer's News Agency 




Westiaks Shopping Center 


Roseville 


Shinder's Roseville 


Hancho 






Illinois News Service 


SI. Paul 


Shinder's (3 Locations) 


Muriata 


Software Plus 


Springfield 


Book Emporium 






Redondo 






Sangamon Center North 


MISSOURI 




Beach 


Software. Etc. 




Town 8, Country Shopping Ctr. 


Farmington 


Ray's TV & Radio Shack 


Sacramento 


Dalbefl's Readerama 


Sunnyland 


Book Emporium 


Flat River 


Ray's TV & Radio Shack 




Tower Magazine 


West Frankfort 


Paper Place 


Florissant 


Book Brokers Unlimited 


San Francisco 


Booksmith 


Wheeling 


North Shore Distributors 


Jefferson City 


Cowley Distributing 
T 8 R Electronics 




Bookworks 






Kirksville 




Castro Kiosk 


INDIANA 




Si. Louis 


Book Emporium 


Santa Monica 


Midnight Special Bookstore 
Soltware. Etc. 


Angola 


D&D Electronics/Radio Shack 








Radio Shark 


NEBRASKA 




San jgsa 


Computer Litaracy Bookshops 


Berne 


White Cottage Electronics 


Lincoln 


Nebraska Bookstore 


Santa Rosa 


Sawyers News 

Harding Way News 


Blonmington 
CrawfDrdsville 


Book Center 


Omaha 


Nelson News 


Stockton 


Koch's Books 








Paperbacks Unlimited 


Dyer 


Miles Books 


NIT/ADA 




Sunnyvale 


Computer Literacy 


Franklin 


Gallery Book Shop 


Carson City 


Bookceiiar 


Torrance 


El Camino Collage Bookstore 


Ft. Wayne 


Michiana News Service 


Las Vegas 


Hurley Electronics 


COLORADO 




Garrett 
Indianapolis 


Finn News Agency 
Bookiand 




Sieve's Books & Magazines 


Aurora 


Aurora Newsstand 




Borders Bookshop 


NEW HAMPSHIRE 




Colorado 






Indiana News 


Manchester 


Bookwrights 
Verham News Corp, 


Springs 


Ham sway's 




Southside News 


Wesl Lebanon 


Denver 


News Gallery 


Lebanon 


Gallery Book Shop 




Glenwood 




Martinsville 


Radio Shack 


NEW JERSEY 




Springs 


The Book Train 


Nappanee 


Richards K-40 Electronics 


Atlantic City 
Cedar Knolls 


Atlantic City News Agency 
Village Computer 8 Software 


Grand 
Junction 


Readmore Book & Magazine 


Richmond 


Voyles News Agency, Inc. 


Longmont 


City Newsstand 


IOWA 




NEW MEXICO 








Davenport 


Interstate Book Store 


Albuquerque 


Page One Newsstand 


DELAWARE 




Des Moines 


Thackery's Books, Inc. 


Santa Fe 


Downtown Subscription 


Newark 


Newark Newsstand 


Fairfield 


Kramer's Books & Gifts 












NEW YORK 




DISTRICT OF COLUMBIA 


KANSAS 




Amhersl 


Village Green Bookstore 
Lift Bridge Book Shop, Inc, 
Cromland, Inc. 


Washington. 
DC 


Chronicles 


Hutchinson 
Topeka 


Crossroads, Inc. 
Palmer News, Inc. 


Brockporl 
Srookyn 




News Room 


Wellington 


Oandy'&'Radio Shack Dealer 

Lloyd's Radio 


Elmira Heights 


Southern Tier News Co., Inc. 




World News, Inc. 


Wichita 


Fredonia 


On Line! Computer Access Center 






NEW YORK (conn) 

Hudson Falls 




TEXAS 




BRITISH COLUMBIA (cont'd) 


GA, West £ Co. 


Big Spring 


Poncho's News 


Ghllhvock 


Charles Parker 


Hunlinglon 


Oscar's Bookshop 


Desoto 


Maxwell Books 


Coquittam 


Cody Books LTD 


Johnson Cily 


Unicorn Electronics 


Elgin 


The Homing Pigeon 


Coortenay 


Rick's Music& Sloreo 


New Yoik 


Barnes & Noble — Sales Annas 


Ft. Worth 


Trinity News 


Dawson 


Bell Radio & TV 




Coliseum Books 


Harlington 


Book Mark 


Golden 


Taks Home Furnishings 




Eastern NewStand 






Langley 


Langley Radio Shack 




Grand Central Station, Track 37 


UTAH 




Nelson 


Oliver's Books 




ZOO Park Ave., (Pan Am #1) 


Prove 


Vaiiey Book Center 


New West-minister 


Cody Books LTD 




S Water (Street 






Parkavllle 


Parksvill TV 




World Trade Center *2 


VIRGINIA 




Penilcton 


D.J.'s 




First Slop News 


Danville 


K & S Newstand 




Four Comer Grocery 




Idle Hours Bookstore 


Hampton 

Lynchburg 

Norfolk 


Benders 


Sidney 


Sidney Elecironics 




Intern alional Smoke Shop 


Sell Serve Software 


Smithers 


Wall's Home Furniture 




Jonil Smoke 


l-O Computer 


Squamish 


Kotyk Electronics 




Penn Souk 




Turn The Pane, Inc. 


Vancouver 


Active Components 




Slate News 


Richmond 


Volume 1 Bookstore 




Friend lyware Computers 
Granvife Book Co. 




Walden Books 










World Wide Media Services 


WASHINGTON 






Siliconnections Books LTD 


Rochester 


Microcom Software 


Pon Angeles 


Port Book & News 


100 Mile 






Village Green 


Seattle 


Bulldog News 


House 


Tip Top Radio & TV 




World Wide News 


WEST VIRGINIA 




MANITOBA 




NORTH CAROLINA 




Huntington 


Nick's News 


Altona 


LA Wiebr Ltd. 


Cary 


News Center in Gary Village 
University News & Sundry 


Madison 


Communications. LTD. 


Lundar 


Goranson Elec. 


Chapel Hill 


Parke rsburg 


Valley News Service 


Morden 


Central Sound 


Charlotte 


Newstand Int'l 


Soulh 




The Pas 


Jodi's Sight & Sound 


Hickory 


C2Books 4 Comics 


Charleston 


Spring Hill News 


Selkirk 


G.L EnnsEiec, 


Jacksonville 


Mrchete's, Inc. 






Steinback 


Fray Em/Radio Shack 
Archer Enterprises 


Kemersvifie 


K & S Newsstand 


WISCONSIN 




Vlrden 


Lexington 


Martin's Newsstand 


Applelon 


Badger Penodicals 






Marlon 


Boomers Rhythm Center 


Cudahy 

Kenosha 


Cudahy News & Hobby 


NEW BRUNSWICK 




Winston-Salem 


K a S Newsstand. (3 locations) 


R.K. News. Inc. 


Moncton 


Jeffries Enterprises 




Rainbow News, Ltd. 


Madison 


Pic A Book 

University Bookstore 
Juneau village Reader 


Sussex 


Dewilt Elec. 


OHIO 




Milwaukee 


NEWFOUNDLAND 




Akron 


Churchill News & Tobacco 


Waukesha 


Holt Variety 


Botwood 


Seaport Elec. 
Siade Realties 


Canton 


Utile Professor Book Cenler 






Cartsanear 


Chardon 


Thrasher Radio & TV 


ARGENTINA 




Labrador City 


N.P. Investments [Mail Drugs) 


Cincinnati 


Cinsofl 


Cordoba 


Information Telecommunications 


NOVA SCOTIA 




Cleveland 


Erievlew News 






Halifax 


Atlantic News 


Columbiana 


Fidelity Sound Electronics 


AUSTRALIA 








Columbus 


B5 Software 


Blaxland 


Blaxland Computers 








Miero Cenler 


Kingsford 


Paris Radio Electronics 


ONTARIO 






The Newsstand 






Angus 


Micro Computer Services 


Dayton 


Books a Co, 


CANADA: 




Aurora 


Compu Vision 




Wilke News, 


ALBERTA 




Concord 


Ingram Software 
J Mecleane S Sons 




Wright News & Books 
Bock 5am 


Banff 


Banff Radio Shack 


Exeter 


Dublin 


Bonnyville 


Paul Tercier 


Hanover 


Modern Appliance Centre 
Huntsville Elec. 


Fairbum 


News- Readers 


Brooks 


Double "D" A.S-C. Radio Shack 


Hunts villa 




Sandbox Micro Systems 


Calgary 
Claresholm 


Billy's News 


Kwwra 


Donny "B" 

T.M. Computers 




Wilkes University Shoppe 


Radio Shack Associated Stores 


Kingston 


Findley 


Open Book 


Drayton Valley 


Langard Electronics 
CMD Micro 


Listowel 


Modem Appliance Contra 


Lakewood 


Lakewood International News 


Edmonton 


South River 


Max TV 


Lima 


Edu-Caterers 


Fairview 


D.N.R. Furnilure &TV 




Dennis TV 


Miamisburg 


Wilke News 


Fox Creek 


Fox City Color * Sound 
A.S.C, Radio Shack 


Toronto 


Garden and Golch 


Parma 


Bookmark Newscenter 








Warren 


Book Nook, Inc. 


Ft. Saskat- 




QUEBEC 




Xenla 


Fins Print Books 


chewan 


Ft. Mall Radio Shack, ASC 


USalte 


Messagenes De Presse Beniamin 


Youngstown 


PEaza Sock & Smoke Shop 


Grande 
Cache 


The Stereo Hut 


Pont. Rouge 


Boutique Bruno Laroche 


OKLAHOMA 




Grande 




SASKATCHEWAN 




Taklequah 


Thomas Sales, Inc dha Radio Shack 


Centre 


The Book Nook 


Assiniboia 


Telslar News 


Tulsa 


Sieve's Books & Magazines 


Hinton 


Jim Cooper 


Estevan 


Kotyk Electronics 
DSS Computer Place 






fnnistail 


LSiS Stereo 


Moose Jaw 


OREGON 




Leduc 


Radio Shack Associated Press 


Nipiwan 


Cornerstone Sound 


Eugene 


Libra Books — Book Mark 


Lethbndge 


Datalran 


Regina 


Regina CoCoClub 
Software Su permarkei 


Portland 


Fifth Avenue News 


Lloyd minster 


Lloyd Radio Shack 






Rich Cigar Store 

Sixth a Washington News 


Okotoks 


Okotoks Radio Shack 


Saskatoon 


Everybody's Software Library 




Peace River 


Radio Shack Associated Press 


Shellbroake 


Gee. Laberoe Radio Shack 


Salem 


Capitol News Center 




Tavemer Software 


Tisdale 


Paul's Service 




Checkmate Book 


St. Paul 

Stettler 


Walter's Electronics 

Sletiter Radio Shack 


Unity 


Grant's House of Sound 


PENNSYLVANIA 




Stralhmore 


Wheatland Electronics 


YUKON 




A lentO'.v,-- 


Owl Services 


Taber 


Pynewood Siqht & Sound 
Westlock Stereo 


Whilehorse 


H&O Holdings 


Aitoona 


Newborn Enterprises 


Westlock 






Bryn Mawr 


Bryn Mawr News 


Weiaskiwin 


Radio Shack 


JAPAN 




Feasterville 


Global Books 






Tokyo 


America Ado, Inc, 


King of Prussia 


Gene's Books 


BRITISH COLUMBIA 








Malvern 


Personal Software 


Burnaby 


Compulit 


PUERTO RICO 




Reading 


Smith's News & Card Center 


Burns Lake 


VT. Video Works 


East Ista Verde 


The Color Computer Store 


Temple 


Software Center 


Campbell River 


TRS Electronics 







West Chesier 
York 



RHODE ISLAND 

Newport 

SOUTH CAROLINA 
Charleston Heights 
Clemson 
Florence 

Greenville 

Spartanburg 

TENNESSEE 

Brentwood 
Chattanooga 

Knoxville 

Memphis ■ 
Nashville 



Smyrna 



Chester County Book Co. 
The Computer Center of York 
Tollgate Bookstore 



Bel levue News 



The Software Haus. Inc. 
Clemson Newstand 
Rays #1 

Palmetto News Co. 
Software City 



Bookworld #5 
Anderson New&Co. 
Qulld Books & Periodicals 
Anderson News Co. 
Davis-Kidd Booksellers 
Computer Center 
Davis-Kidd Booksellers 
Mosko's Place 
R.M. Mills Bookstore 
Delker Electronics, Inc. 



Also available at ail B. Datton Booksellers, and 
selected Coles and W, H, Smith in Canada, 
Wafdenbooks, Pickwick Books, Encore Books, Barnes 
& Noble, Little Professors, Tower Book & Records, 
Kroch's & Brentano's, and Community Newscenters. 



Advertisers Index 



We encourage you to patronize our advertisers — - ail of whom support the Tandy Color 
Computer. We will appreciate your mentioning the rainbow when you contact these firms. 



Alpha Products 21 

Alpha Software Technologies .. 59 
Arizona Small Computer 

Company 55 

Burke & Burke 89 

Cer-Comp 87 

Cinsoft , , .....81 

Colorware , 19 

CompuServe ,,.67 

Computer Island 103 

Computer Plus 3 

CRC/Disto 79 

D.P.Johnson..... .114 

Danosolt ..45 

Dayton Associates 

of W.R.Hall, Inc. 101 

Delphi 99 

Dr. Preble's Programs 41 

E.Z. Friendly Software 83 

Electronic Energy 35 

Eversoft Games ...97 

Frank Hogg Laboratories 121 

Game Point Software 29 

Game Point Software 109 

Gibralter Software 91 

Gimmesoft 37 

Granite Computer Systems .... 1 19 

Hawksoft, Inc. .117 

Howard Medical 130 

Howard Medical IBC 

JR & JR Softstuff 55 

JWT Enterprises 103 

Metric Industries , 73 

Microcom Software ..............7 

Microcom Software .9 

Microcom Software 1 1 

Microcom Software 13 

Microcom Software 15 

Microcom Software 17 

Microdeal BC 

Microtech Consultants Inc 57 

NRI Schools Insert 

Oblique Triad 105 

Orion Technologies .....65 

Owl-Ware 69 
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Owl-Ware ........,,,... 70 

Owl-Ware 71 

P&M Products 91 

Paul & Tony's 107 

Perry Computers 113 

Rainbowfest 74 

Rainbowfest 75 

RGB 85 

Rulaford Research 115 

SD Enterprises 25 

Second City Software ............ 129 

Simply Better Software 47 

Spectrosystems ., 31 

SPORTSWARE 51 



STG 97 

Sugar Software 39 

Sundog Systems IFC 

T& D Software.... 23 

T & D Software.. 53 

T & D Software.... 83 

T&DSoftware 117 

Tandy/Radio Shack 33 

Tandy/Radio Shack 89 

Tepco .. 93 

Tothian , 111 

True Data Products 95 

WBD Software 85 

Zebra Systems 107 






Call: 

Belinda Kirby 

Advertising Representative 
(502) 228-4497 




□ Call: 

Kim Vincent 

Advertising Representative 

(502) 228-4492 



The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 
FAX (502) 228-5121 
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UltipTJusE 



The Ultimate Music Editor for the CoCo 3 "* 

"What if... 

all CoCo music programs were this good?" 

UltiMusE III is a MIDI "Notation Sequencer'. It lets you write and edit 
sheet music on a 640x192 graphics screen using the mouse, play it on 
ANY MIDI -equipped synthesizer(s), and print out the score... Written 
by an experienced computer professional who is also a serious ama- 
teur musician and composer. With UttiMusEIII, there is no more 'faking' 
to play what you want to hear! Perfect for the trained musician, 
UltiMusE Ill's natural notation also helps a beginner to copy a favorite 
piece of sheet music just as it looks. Why should your music sound like 
a machine? UltiMusE III has a wide pitch range, from 4 octaves below 
Middle C to over 3 above. Each staff has a 4-octave range centered on 
one of four clefs - Treble, Guitar, Bass, and Double Bass. Staff place- 
ment, clefs, and part and MIDI channeJ assignments can ALL be 
edited... Professional software should use a professional Operating 
System, UltiMusE III uses the advanced features of OS-9 Level II and 
does not interfere with its windowing and multi-tasking in any way. 

SYSTEM REQUIREMENTS: CoCo 3 
with at least 256K memDfy, OS-9 Level 2, 
Mouse or Joystick (Hi-Res Joystick Adapter 
recommended), Synthegijer(s) with MIDI- 
Injack. plus a Serial to MIDI cable. Tandy's 
DMP printer, a MIDI Interface Pak, and a 
Multi-Pak are optional equipment. 



u 'm 



use /// 



$54.95 



CASIO MT-240 MIDI KEYBOARD $149.95 

A/C POWER ADAPTER $14.95 

SERIAL TO MIDI CABLE $19.95 



Newspaper^ 




FINAL EDITION 



DeskTopPublishingfortheCoCoS just got 
better! With the ALL NEW NEWSPAPER 
PLUS - FINAL EDITION, you can create 
complete and sophisticated Banners, 
Headlines along with Text Columns and 
Graphics. Bring indifferent pictures, fonts, 
fill patterns, and textf rom disk and create a 
publication with that pro look to it. Comes 
complete with 22 fonts, 50 News Art pic- 
tures and fill patterns. 128k or 512k Disk 

STILL ONLY $48.95 



1 



'FINAL EDITION' isjust a news 
print slogan meaning the very 
latest published issue. In the 
case of Newspaper Plus- Final 
Edition, it means the latestup- 
grade is NOW available. Here 
are some of the added fea- 
tures being offered; 

*Text import with Left, Right, 
Centered & Justification 

* Ram Disk Utility (512k) 

* Stretch. Shrink* Com- 
press picture utility 

*A new 'Design Your Own' 

layout feature 
*Full Font import ability 

* Text to Picture wrap-around 

* Disk Transfer Utility (,512k} 



WORD SEARCH: $22.95 

A Word Search Puzzle Generator Utility 
program. CoCo 1 ,2,&3 Disk 

MORSE CW: $19.95 

Acomplete Morse CodeTotorial program, 
CoCo 1, 2, &3 Disk 

SPACE RAIDERS: $16.05 

A FAST ACTION ARCADE GAME. Test your 
skills! CoCo 1A&3 Disk 

STARPIC UTILITY: $19.95 

DMP-PlC UTILITY: $19.95 

GEM-PIC UTILITY: $19.95 

A complete Graphics Printing Utility pro- 
gram for the Star NX-iooOor Tandy's DMP 
or the Gemini Dot Matrix printers. Works in 
an easy to use Point 'N Click pull down 
menu environment. A MUST HAVE printing 
utility. CoCo 1,2,&3Dlsk 

Check09MV: #2.1 $25,95 

Check09MV interacts with MultiVue for 
FAST & EASY checkbook balancing. No 
more waiting for your bank statement for 
an ending balance, CheckOQMV will pro- 
duce a check-by-eheck running total of 
your accou nt in an easy to use format. End 
those monthly surprizes! 512k 



MASTER CATALOG: 
MASTER CATALOG 3 



; 



$19.95 
$19.95 
Organize your floppy disks with Maste 
Catalog. Supports single & double sided 
drives, alphabetize, sort, and search & find 
upto 3,000filenames. Program supportsa I 
Column Format Hard Copy and is 100% 
MLfor lightning response When ordering, 
please specify CoCo 1 ,2, or 3 version. 

START OS-9 $32.95 

An Enjoyable, Hands-On Guide To OS-9 
Level 2 On The Color Computer 3. Work 
from a step-by-step easy to follow tutorial 
book and program disk. Requires 2 drives, 
51 2K and an 80-column monitor.START 
OS-9... NOW NO MORE EXCUSES, 



BasicScreen Editor $1 9,95 

A-DOS 3 . , $34,95 

MY-DOS $14.95 

EPROM BURNSERVICE $15.00 

Ram Disk Lightning $16.95 

Printer Lig htning $16.95 

Backup lightning $16.95 

VIP Library $1 49.95 

VIP Writer III , $79.95 

VIP Calc III , $69.95 

VIP DataBase III $69. 95 

OS-9 Solution $24.95 

Schematic Drafting Processor $24,95 

Tapeto Disk/Disk to Tape $19.95 

Multi-Pak Crack $24.95 

TelePatch $24.95 

Blackjack Royale $16.95 

CoCo Calender Del uxe $1 9.95 

NewsArt A thru Z 

26 disks filled with useable clip art for 
Newspaper Plus & Newspaper Plus - Final 
Edition. $100.00 for the complete set 
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APBBS Ver: 3.00.00 SPECIAL INTRODUCTORY PRICE OF $39.95 

QUESTION: Have you ever wondered how someone can sell and support two different BBS 
programs while claiming both to be the BEST? Good question you ask..,wethinksotDo!!l With 
the exclusive SCS commercial release of Mike Guzzi's APBBS program we end ayears quest for 
a POWERFUL, HIGH QUALITY, and AFFORDABLE BBS program. Besides these three require- 
ments, we also demanded full author assistance to help answer your questions and lend 
technical support. Mike Guzzihasnotonlywritten suchaprogramin APBBS but has also offered 
his expertise and knowledge as the programmer and a SYSOP. Giving you FULL SUPPORT 
AFTERTHE SALE! APBBS requires a CoCo3 w/512k memory, at least two double sided floppy 
drives (a hard drive is strongly recommended), OS-9 Level2, and RS-232 pak. APBBS is not for 
everyone. It is designed and intended for the SYSOP whodemands performance and support. 



MASTER CARD - VISA 
C.O.D.- MONEY ORDERS 

ADD $2.5D SHIPPING 

($4.50 FOREIGN) AND 

AN ADDITIONAL $2.50 

FOR C.O.D. ORDERS 

Allow 1 to 3 weeks delivery 
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P.O. BOX 72956 
ROSELLE, IL 

60172 

Nole:Asof 11/69 
Area Code will be 708 

ORDER 

312^53-5610 

BBS 

312-307-1519 




STAR NX-1000L COLOR 

> Built in back tractor paper feed 

converter add $40 j^jq^ ,, , 
$^49 (5 ship) 







DRIVE PLUS 

• Double sided 36QKMPI 52 

• Disto Controller and cable 

$178.45 (5ship) 








DISTO DC-7 

» Mini Disk Controls for CoCo 1, 2, 3 
■ Includes RS 1.1 Modified to access 
Double-sided Drive $75 (2 ship) 




VIDEO AMPLIFIER VA-1 

required 'in CoCo 1 or 2 to drive 
monitor $29.45 (2 ship) 




MAGNA VOX 7622 AMBER 

• 80 Column OR 7652 GREEN 

• Built in Speaker 



$98 (7 ship) 




RS1.1 DOS 

• ROM Chip for Disk Controller 



Works for CoCo 2 or 3 



$25 (2 ship) 




HARD DRIVE 

20,000,000 Bytes or the equivalent to 1 25 
R.S. 501 'son line are packed into this hard 
drive, pre installed and ready to run. This 
complete easy to use package includes a 
Seagate 20 Meg Hard Drive, a DTC 5150 
Controilerand interface." heavy duty case, 
power supply and fan and a 1 year war- 
ranty. This 20 meg Hard Drive will also 
work with Tandy and IBM clones. Basic 
driver, $29.95, lets you access this hard 
drive without need for OS-9. 

See Rainbow Reviews 8/89 



(9 ship) 

HD-1 10 Meg* 
HD-2 20 Meg 
HD-3 30 Meg 
HD-4 40 Meg 

'Burke & Burke 



$349 
$499 
$549 
$598 

l CDC drive 




DOUBLE DRIVE + 

Two double side 360K Teac 55B 
Disto controller & cable 



$310 (8 ship) 




PAL UPGRADE PAL -1 or 2 

Makes multi-pack interface work 
with CoCo 3. Specify 26-3024 or 
26-3124. $14.95 (2 ship) 




30 Day Money Back Guarantee 

Howard Medical's 30-day guarantee 
is meant to eliminate the uncertainty 
of dealing with a company through 
the mail. Once you receive our 
hardware, try it out; test it for 
compatability. If you're not happy 
with itforany reason, return it in 30 
days and we'll give your your money 
back (less shipping.) Shipping 
charges are for 48 states. APO, 
Canada and Puerto Rico orders are 
higher. 







in 

Howard Medical Computers 

l690N.EIston 
Chicago, Illinois 60622 

Order Status and Inquiries 
312-278-1440 

Show Room Hours 
8:00 5:00 M-F 
10:00 -3:00 Sat. 

Order Line 
800-443-1444 




STAR NX 1000 

■ Dot Matrix; 144 CPS 
• Back Tractor & Friction Feed 
Needs SP-C $189 (5 ship) 





HOWARD SP^ 

• Serial to Parallel Converter 

■ Connect CoCoto Parallel Printer 

$68.45 (2 ship) 




DISTO DC-3 

Original Disto Controller 
2 ROM Slots; Gold Platted Contacts 
$98 (2 ship) 




A. DISTO' 3 in 1 Board $69.45 

B. DISTO MEB $30.00 

C. DISTO RS-232 $49.95 



BROTHER M-11 PRINTER 

Built-in Serial & Parallel Interface 
Dot Matrix: Tractor/Fricton Feed 
$156 (5 ship) 



BURKE & BURKE 


BOX 




Hard disk Interface 


69.45 


with clock 


99.45 


RSB ver 1 .3 


39.45 


Hyper I/O ver2.6C 


29.95 


XT-ROM ver 2.3 


19.45 


File repack 


29.45 








MICRO WORKS DIGITIZER 

■ DS-69B Color 1.5 Second/Picture $150 

i D$- 59 B &W 2 Seen rid/Picture $100 




MULTI BOARD ADAPTER $70 
EPROM PROGRAMMER $49 




TEAC55B 

360K Double Sided Half Ht, Floppy 

Fits R.S. 501 & 502 

CA-2 cable $29.50 $98 (2 ship) 




MAGNAVOX 8CM515 COLOR 
■ 80 Column 
• Use with Coco, Tandy 1000's, IBM PC 
CC-3 RGB cable 19.95^_ _ _ 

$269 (14ship)| 




MEMORY 

♦ 512K Bare Board $40 

• Populated 512K & Software $1 1 9| 
.64K8Chipfor CoCo 2 $30 




in 

Howard Medical Computers 

1690 N. Elston 

Chicago, Illinois 60622 

Order Status and Inquiries 
312-278-1440 

Master Card • Visa » Discover 

American Express 

COD. • School PC's 

Order Line 
800-443-1444 
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Slots & Cards 
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576 S. Telegraph 

Pontiac, Ml 48053 

•* (313) 334-5700 
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Did f ou ever dream of visiiing VJEClAS, hot you wercn'l Mire what (ncxpt 
would be able to ;d lord it.' 1 Well, now vou can play, your favorite slot it 
down id the blackjack ttihle without even leaving the comfort pf your h 
through different sly le slot machines (many different Multiplier slots). V 
booth if- or is thai when? - you run out of cash, without feeling a pain i 
Walk ground the corner and sit down at any of u number of different styl 
Fnjtiv video live card draw poker - where iMakes jacks or hetterHo 
Blackjack against the ever treacherous house dealer. Play Hi-Low and \ 
every chance you get. Do youlike Keno? If so, choose your numbers, tht 
wait to set if the> are drawn! 



All versions display^ ivid true to VHtJAjS graphics. Whatever your j 
Cards has it for you! Slots & Cards is available for the IBM PC & 
Commodore Amiga, Atari ST and the CoCo III. 

See your local dealer for orders and information pr call us 



